module-build-checkins Mailing List for Module::Build (Page 36)

Status: Beta

Brought to you by: kwilliams

This project can now be found here.

module-build-checkins — Notification of CVS commits

You can subscribe to this list here.

2004	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov (82)	_Dec (58)
2005	_Jan (49)	_Feb (57)	_Mar (49)	_Apr (49)	_May (2)	_Jun (147)	_Jul (60)	_Aug (55)	_Sep (51)	_Oct (68)	_Nov (61)	_Dec (44)
2006	_Jan (27)	_Feb (38)	_Mar (89)	_Apr (31)	_May (17)	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

Flat | Threaded

<< < 1 .. 34 35 36 37 38 .. 42 > >> (Page 36 of 42)

[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.57.2.2,1.57.2.3

From: Randy W. S. <si...@us...> - 2005-01-07 08:15:07

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32068/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Compat.pm 
Log Message:
Use perl's glob() function to implement tilde expansion since it works better across platforms, and update related tests. [suggested by Yitzchak Scott-Thoennes]

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57.2.2
retrieving revision 1.57.2.3
diff -C2 -d -r1.57.2.2 -r1.57.2.3
*** Compat.pm	6 Jan 2005 04:08:44 -0000	1.57.2.2
--- Compat.pm	7 Jan 2005 08:14:57 -0000	1.57.2.3
***************
*** 136,143 ****
  		       die "Malformed argument '$arg'");
  
!     # Do tilde-expansion like MakeMaker does, more or less
!     unless ( Module::Build->os_type eq 'Windows' ) {
!       $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
!     }
  
      if (exists $makefile_to_build{$key}) {
--- 136,141 ----
  		       die "Malformed argument '$arg'");
  
!     # Do tilde-expansion if it looks like a tilde prefixed path
!     ( $val ) = glob( $val ) if $val =~ /^~/;
  
      if (exists $makefile_to_build{$key}) {

[Module-build-checkins] Module-Build/t compat.t,1.17.2.3,1.17.2.4

From: Randy W. S. <si...@us...> - 2005-01-07 08:15:06

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32068/t

Modified Files:
      Tag: release-0_26_branch
	compat.t 
Log Message:
Use perl's glob() function to implement tilde expansion since it works better across platforms, and update related tests. [suggested by Yitzchak Scott-Thoennes]

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17.2.3
retrieving revision 1.17.2.4
diff -C2 -d -r1.17.2.3 -r1.17.2.4
*** compat.t	7 Jan 2005 02:17:41 -0000	1.17.2.3
--- compat.t	7 Jan 2005 08:14:57 -0000	1.17.2.4
***************
*** 147,152 ****
  }
  
! {
!   # Make sure tilde-expansion works
    Module::Build::Compat->create_makefile_pl('passthrough', $build);
  
--- 147,155 ----
  }
  
! { # Make sure tilde-expansion works
! 
!   # C<glob> on MSWin32 uses $ENV{HOME} if defined to do tilde-expansion
!   local $ENV{HOME} = 'C:/' if $^O =~ /MSWin/ && !exists( $ENV{HOME} );
! 
    Module::Build::Compat->create_makefile_pl('passthrough', $build);
  
***************
*** 154,159 ****
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   skip $^O =~ /MSWin/ ? 'Windows does not support tilde-expansion' : '',
!        $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');
--- 157,161 ----
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   ok $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');

[Module-build-checkins] Module-Build Changes,1.299.2.26,1.299.2.27

From: Ken W. <kwi...@us...> - 2005-01-07 04:38:20

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24503

Modified Files:
      Tag: release-0_26_branch
	Changes 
Log Message:
Not ready for release yet, remove the date

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.299.2.26
retrieving revision 1.299.2.27
diff -C2 -d -r1.299.2.26 -r1.299.2.27
*** Changes	7 Jan 2005 02:17:41 -0000	1.299.2.26
--- Changes	7 Jan 2005 04:38:10 -0000	1.299.2.27
***************
*** 1,5 ****
  Revision history for Perl extension Module::Build.
  
! 0.2608  Tue Jan  4 21:44:57 CST 2005
  
   - Add workaround for test files because Devel::Cover causes
--- 1,5 ----
  Revision history for Perl extension Module::Build.
  
! 0.2608
  
   - Add workaround for test files because Devel::Cover causes

[Module-build-checkins] Module-Build/t basic.t,1.27.2.4,1.27.2.5 compat.t,1.17.2.2,1.17.2.3 ext.t,1.1.2.5,1.1.2.6 install.t,1.12,1.12.2.1 runthrough.t,1.45.2.3,1.45.2.4 signature.t,1.7,1.7.2.1 xs.t,1.14,1.14.2.1

From: Randy W. S. <si...@us...> - 2005-01-07 02:17:57

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27044/t

Modified Files:
      Tag: release-0_26_branch
	basic.t compat.t ext.t install.t runthrough.t signature.t xs.t 
Log Message:
Add workaround for test files because Devel::Cover causes require to fail when the argument to require is an expression involving File::Spec. We now assign the result of the File::Spec call to a variable and then call require with that variable.

Index: signature.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/signature.t,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -C2 -d -r1.7 -r1.7.2.1
*** signature.t	2 Sep 2003 16:33:04 -0000	1.7
--- signature.t	7 Jan 2005 02:17:42 -0000	1.7.2.1
***************
*** 3,7 ****
  use Test;
  use File::Spec;
! require File::Spec->catfile('t', 'common.pl');
  
  use Module::Build;
--- 3,9 ----
  use Test;
  use File::Spec;
! 
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  use Module::Build;

Index: runthrough.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v
retrieving revision 1.45.2.3
retrieving revision 1.45.2.4
diff -C2 -d -r1.45.2.3 -r1.45.2.4
*** runthrough.t	30 Nov 2004 13:12:16 -0000	1.45.2.3
--- runthrough.t	7 Jan 2005 02:17:42 -0000	1.45.2.4
***************
*** 11,16 ****
  ok $INC{'Module/Build.pm'}, '/blib/', "Make sure version from blib/ is loaded";
  
! 
! require File::Spec->catfile('t', 'common.pl');
  
  ######################### End of black magic.
--- 11,16 ----
  ok $INC{'Module/Build.pm'}, '/blib/', "Make sure version from blib/ is loaded";
  
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  ######################### End of black magic.

Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -d -r1.1.2.5 -r1.1.2.6
*** ext.t	13 Dec 2004 04:16:40 -0000	1.1.2.5
--- ext.t	7 Jan 2005 02:17:42 -0000	1.1.2.6
***************
*** 4,8 ****
  use File::Spec;
  
! require File::Spec->catfile('t', 'common.pl');
  
  my @unix_splits = 
--- 4,9 ----
  use File::Spec;
  
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  my @unix_splits = 

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17.2.2
retrieving revision 1.17.2.3
diff -C2 -d -r1.17.2.2 -r1.17.2.3
*** compat.t	6 Jan 2005 04:08:44 -0000	1.17.2.2
--- compat.t	7 Jan 2005 02:17:41 -0000	1.17.2.3
***************
*** 6,10 ****
  use File::Path;
  use Config;
! require File::Spec->catfile('t', 'common.pl');
  
  use Carp;  $SIG{__WARN__} = \&Carp::cluck;
--- 6,12 ----
  use File::Path;
  use Config;
! 
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  use Carp;  $SIG{__WARN__} = \&Carp::cluck;

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.12
retrieving revision 1.12.2.1
diff -C2 -d -r1.12 -r1.12.2.1
*** install.t	4 Oct 2004 22:13:48 -0000	1.12
--- install.t	7 Jan 2005 02:17:42 -0000	1.12.2.1
***************
*** 2,6 ****
  
  use Test; 
! BEGIN { plan tests => 29 }
  use Module::Build;
  use File::Spec;
--- 2,6 ----
  
  use Test; 
! BEGIN { plan tests => 28 }
  use Module::Build;
  use File::Spec;
***************
*** 8,13 ****
  use Config;
  
! ok(1);
! require File::Spec->catfile('t', 'common.pl');
  
  my $start_dir = Module::Build->cwd;
--- 8,13 ----
  use Config;
  
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  my $start_dir = Module::Build->cwd;

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.27.2.4
retrieving revision 1.27.2.5
diff -C2 -d -r1.27.2.4 -r1.27.2.5
*** basic.t	15 Nov 2004 19:51:10 -0000	1.27.2.4
--- basic.t	7 Jan 2005 02:17:41 -0000	1.27.2.5
***************
*** 9,13 ****
  use File::Spec;
  use Cwd;
! require File::Spec->catfile('t', 'common.pl');
  
  ######################### End of black magic.
--- 9,15 ----
  use File::Spec;
  use Cwd;
! 
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  ######################### End of black magic.

Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.14
retrieving revision 1.14.2.1
diff -C2 -d -r1.14 -r1.14.2.1
*** xs.t	21 May 2004 03:14:20 -0000	1.14
--- xs.t	7 Jan 2005 02:17:42 -0000	1.14.2.1
***************
*** 10,14 ****
  plan tests => 12;
  
! require File::Spec->catfile('t', 'common.pl');
  
  ######################### End of black magic.
--- 10,15 ----
  plan tests => 12;
  
! my $common_pl = File::Spec->catfile('t', 'common.pl');
! require $common_pl;
  
  ######################### End of black magic.

[Module-build-checkins] Module-Build Changes,1.299.2.25,1.299.2.26

From: Randy W. S. <si...@us...> - 2005-01-07 02:17:51

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27044

Modified Files:
      Tag: release-0_26_branch
	Changes 
Log Message:
Add workaround for test files because Devel::Cover causes require to fail when the argument to require is an expression involving File::Spec. We now assign the result of the File::Spec call to a variable and then call require with that variable.

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.299.2.25
retrieving revision 1.299.2.26
diff -C2 -d -r1.299.2.25 -r1.299.2.26
*** Changes	5 Jan 2005 04:37:32 -0000	1.299.2.25
--- Changes	7 Jan 2005 02:17:41 -0000	1.299.2.26
***************
*** 3,6 ****
--- 3,11 ----
  0.2608  Tue Jan  4 21:44:57 CST 2005
  
+  - Add workaround for test files because Devel::Cover causes
+    require to fail when the argument to require is an expression
+    involving File::Spec. We now assign the result of the File::Spec
+    call to a variable and then call require with that variable.
+ 
   - Tilde-expansion is now performed on arguments passed to a
     compatibility-Makefile.PL [Spotted by Sam Vilain]

[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.371,1.372

From: Ken W. <kwi...@us...> - 2005-01-07 00:20:53

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31007/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
I missed one instance of info() to change to log_info()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.371
retrieving revision 1.372
diff -C2 -d -r1.371 -r1.372
*** Base.pm	6 Jan 2005 02:59:42 -0000	1.371
--- Base.pm	7 Jan 2005 00:20:43 -0000	1.372
***************
*** 892,896 ****
        $self->feature($name => 0);
      } else {
!       $self->info("Feature '$name' enabled.\n\n");
        $self->feature($name => 1);
      }
--- 892,896 ----
        $self->feature($name => 0);
      } else {
!       $self->log_info("Feature '$name' enabled.\n\n");
        $self->feature($name => 1);
      }

[Module-build-checkins] Module-Build/t compat.t,1.17.2.1,1.17.2.2

From: Randy W. S. <si...@us...> - 2005-01-06 04:08:54

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26384/t

Modified Files:
      Tag: release-0_26_branch
	compat.t 
Log Message:
Windows does not support the concept of tilde-expansion, nor does it support the getpw* routines, so we skip the tilde expansion code and tests related to it.

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17.2.1
retrieving revision 1.17.2.2
diff -C2 -d -r1.17.2.1 -r1.17.2.2
*** compat.t	29 Dec 2004 02:54:36 -0000	1.17.2.1
--- compat.t	6 Jan 2005 04:08:44 -0000	1.17.2.2
***************
*** 152,156 ****
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   ok $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');
--- 152,157 ----
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   skip $^O =~ /MSWin/ ? 'Windows does not support tilde-expansion' : '',
!        $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');

[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.57.2.1,1.57.2.2

From: Randy W. S. <si...@us...> - 2005-01-06 04:08:54

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26384/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Compat.pm 
Log Message:
Windows does not support the concept of tilde-expansion, nor does it support the getpw* routines, so we skip the tilde expansion code and tests related to it.

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57.2.1
retrieving revision 1.57.2.2
diff -C2 -d -r1.57.2.1 -r1.57.2.2
*** Compat.pm	29 Dec 2004 02:54:36 -0000	1.57.2.1
--- Compat.pm	6 Jan 2005 04:08:44 -0000	1.57.2.2
***************
*** 137,141 ****
  
      # Do tilde-expansion like MakeMaker does, more or less
!     $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
  
      if (exists $makefile_to_build{$key}) {
--- 137,143 ----
  
      # Do tilde-expansion like MakeMaker does, more or less
!     unless ( Module::Build->os_type eq 'Windows' ) {
!       $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
!     }
  
      if (exists $makefile_to_build{$key}) {

[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.370,1.371

From: Ken W. <kwi...@us...> - 2005-01-06 02:59:51

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13313/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
There are namespace clashes with warn() and verbose(), so change method names to log_info(), log_verbose(), and log_warn()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.370
retrieving revision 1.371
diff -C2 -d -r1.370 -r1.371
*** Base.pm	6 Jan 2005 02:34:21 -0000	1.370
--- Base.pm	6 Jan 2005 02:59:42 -0000	1.371
***************
*** 42,47 ****
    unless ($self->_perl_is_same($self->{properties}{perl})) {
      my $perl = $self->find_perl_interpreter;
!     $self->warn(" * WARNING: Configuration was initially created with '$self->{properties}{perl}',\n".
! 		"   but we are now using '$perl'.\n");
    }
    
--- 42,47 ----
    unless ($self->_perl_is_same($self->{properties}{perl})) {
      my $perl = $self->find_perl_interpreter;
!     $self->log_warn(" * WARNING: Configuration was initially created with '$self->{properties}{perl}',\n".
! 		    "   but we are now using '$perl'.\n");
    }
    
***************
*** 100,104 ****
    # (e.g. to run tests).
    $p->{perl} = $self->find_perl_interpreter
!     or $self->warn("Warning: Can't locate your perl binary");
  
    $p->{bindoc_dirs} ||= [ "$p->{blib}/script" ];
--- 100,104 ----
    # (e.g. to run tests).
    $p->{perl} = $self->find_perl_interpreter
!     or $self->log_warn("Warning: Can't locate your perl binary");
  
    $p->{bindoc_dirs} ||= [ "$p->{blib}/script" ];
***************
*** 119,124 ****
  ################## End constructors #########################
  
! sub info { shift; print @_; }
! sub warn { shift; Carp::carp @_; }
  
  sub _set_install_paths {
--- 119,125 ----
  ################## End constructors #########################
  
! sub log_info { shift; print @_; }
! sub log_warn { shift; Carp::carp @_; }
! sub log_verbose { shift()->log_info(@_) if $_[0]->verbose }
  
  sub _set_install_paths {
***************
*** 292,296 ****
    return if $self->up_to_date([$self->config_file('config_data'), $self->config_file('features')], $notes_pm);
  
!   $self->info("Writing config notes to $notes_pm\n");
    File::Path::mkpath(File::Basename::dirname($notes_pm));
    my $fh = IO::File->new("> $notes_pm") or die "Can't create '$notes_pm': $!";
--- 293,297 ----
    return if $self->up_to_date([$self->config_file('config_data'), $self->config_file('features')], $notes_pm);
  
!   $self->log_info("Writing config notes to $notes_pm\n");
    File::Path::mkpath(File::Basename::dirname($notes_pm));
    my $fh = IO::File->new("> $notes_pm") or die "Can't create '$notes_pm': $!";
***************
*** 622,626 ****
    my $filename = File::Spec->catfile($build_dir, 'lib', split '::', $opts{class}) . '.pm';
    my $filedir  = File::Basename::dirname($filename);
!   $pack->info("Creating custom builder $filename in $filedir\n");
    
    File::Path::mkpath($filedir);
--- 623,627 ----
    my $filename = File::Spec->catfile($build_dir, 'lib', split '::', $opts{class}) . '.pm';
    my $filedir  = File::Basename::dirname($filename);
!   $pack->log_info("Creating custom builder $filename in $filedir\n");
    
    File::Path::mkpath($filedir);
***************
*** 747,751 ****
    my $result = eval $eval;
    *UNIVERSAL::VERSION = $old_version;
!   $self->warn("Error evaling version line '$eval' in $file: $@\n") if $@;
  
    # Unbless it if it's a version.pm object
--- 748,752 ----
    my $result = eval $eval;
    *UNIVERSAL::VERSION = $old_version;
!   $self->log_warn("Error evaling version line '$eval' in $file: $@\n") if $@;
  
    # Unbless it if it's a version.pm object
***************
*** 881,895 ****
      my $failures = $self->prereq_failures($info);
      if ($failures) {
!       $self->warn("Feature '$name' disabled because of the following prerequisite failures:\n");
        foreach my $type (qw(requires build_requires conflicts recommends)) {
  	next unless $failures->{$type};
  	while (my ($module, $status) = each %{$failures->{$type}}) {
! 	  $self->warn(" * $status->{message}\n");
  	}
! 	$self->warn("\n");
        }
        $self->feature($name => 0);
      } else {
!       $self->warn("Feature '$name' enabled.\n\n");
        $self->feature($name => 1);
      }
--- 882,896 ----
      my $failures = $self->prereq_failures($info);
      if ($failures) {
!       $self->log_warn("Feature '$name' disabled because of the following prerequisite failures:\n");
        foreach my $type (qw(requires build_requires conflicts recommends)) {
  	next unless $failures->{$type};
  	while (my ($module, $status) = each %{$failures->{$type}}) {
! 	  $self->log_warn(" * $status->{message}\n");
  	}
! 	$self->log_warn("\n");
        }
        $self->feature($name => 0);
      } else {
!       $self->info("Feature '$name' enabled.\n\n");
        $self->feature($name => 1);
      }
***************
*** 941,950 ****
      my $prefix = $type eq 'recommends' ? '' : 'ERROR: ';
      while (my ($module, $status) = each %{$failures->{$type}}) {
!       $self->warn(" * $prefix$status->{message}\n");
      }
    }
    
!   $self->warn("ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions\n".
! 	      " of the modules indicated above before proceeding with this installation.\n\n");
    return 0;
  }
--- 942,951 ----
      my $prefix = $type eq 'recommends' ? '' : 'ERROR: ';
      while (my ($module, $status) = each %{$failures->{$type}}) {
!       $self->log_warn(" * $prefix$status->{message}\n");
      }
    }
    
!   $self->log_warn("ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions\n".
! 		  " of the modules indicated above before proceeding with this installation.\n\n");
    return 0;
  }
***************
*** 1030,1034 ****
    my $eval_str = "\$v1 $op \$v2";
    my $result   = eval $eval_str;
!   $self->warn("error comparing versions: '$eval_str' $@") if $@;
  
    return $result;
--- 1031,1035 ----
    my $eval_str = "\$v1 $op \$v2";
    my $result   = eval $eval_str;
!   $self->log_warn("error comparing versions: '$eval_str' $@") if $@;
  
    return $result;
***************
*** 1152,1160 ****
    
    if ( $self->delete_filetree($build_script) ) {
!     $self->info("Removed previous script '$build_script'\n");
    }
  
!   $self->info("Creating new '$build_script' script for ",
! 	      "'$dist_name' version '$dist_version'\n");
    my $fh = IO::File->new(">$build_script") or die "Can't create '$build_script': $!";
    $self->print_build_script($fh);
--- 1153,1161 ----
    
    if ( $self->delete_filetree($build_script) ) {
!     $self->log_info("Removed previous script '$build_script'\n");
    }
  
!   $self->log_info("Creating new '$build_script' script for ",
! 		  "'$dist_name' version '$dist_version'\n");
    my $fh = IO::File->new(">$build_script") or die "Can't create '$build_script': $!";
    $self->print_build_script($fh);
***************
*** 1177,1185 ****
    
    if (my @missed = ExtUtils::Manifest::manicheck()) {
!     $self->warn("Warning: the following files are missing in your kit:\n",
! 		"\t", join("\n\t", @missed), "\n",
! 		"Please inform the author.\n");
    } else {
!     $self->info("Checking whether your kit is complete...\nLooks good\n");
    }
  }
--- 1178,1186 ----
    
    if (my @missed = ExtUtils::Manifest::manicheck()) {
!     $self->log_warn("Warning: the following files are missing in your kit:\n",
! 		    "\t", join("\n\t", @missed), "\n",
! 		    "Please inform the author.\n");
    } else {
!     $self->log_info("Checking whether your kit is complete...\nLooks good\n");
    }
  }
***************
*** 1478,1482 ****
      Test::Harness::runtests(@$tests);
    } else {
!     $self->info("No tests defined.\n");
    }
  
--- 1479,1483 ----
      Test::Harness::runtests(@$tests);
    } else {
!     $self->log_info("No tests defined.\n");
    }
  
***************
*** 1513,1517 ****
  
    unless ($self->find_module_by_name('Devel::Cover', \@INC)) {
!     $self->warn("Cannot run testcover action unless Devel::Cover is installed.\n");
      return;
    }
--- 1514,1518 ----
  
    unless ($self->find_module_by_name('Devel::Cover', \@INC)) {
!     $self->log_warn("Cannot run testcover action unless Devel::Cover is installed.\n");
      return;
    }
***************
*** 1722,1726 ****
      my $interpreter = $self->{properties}{perl};
      
!     $self->info("Changing sharpbang in $file to $interpreter") if $self->{verbose};
      my $shb = '';
      $shb .= "$c->{sharpbang}$interpreter $arg\n" if $does_shbang;
--- 1723,1727 ----
      my $interpreter = $self->{properties}{perl};
      
!     $self->log_verbose("Changing sharpbang in $file to $interpreter");
      my $shb = '';
      $shb .= "$c->{sharpbang}$interpreter $arg\n" if $does_shbang;
***************
*** 1750,1754 ****
      
      unlink "$file.bak"
!       or $self->warn("Couldn't clean up $file.bak, leaving it there");
      
      $self->do_system($c->{eunicefix}, $file) if $c->{eunicefix} ne ':';
--- 1751,1755 ----
      
      unlink "$file.bak"
!       or $self->log_warn("Couldn't clean up $file.bak, leaving it there");
      
      $self->do_system($c->{eunicefix}, $file) if $c->{eunicefix} ne ':';
***************
*** 1808,1812 ****
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
--- 1809,1813 ----
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->log_info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
***************
*** 1828,1832 ****
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
--- 1829,1833 ----
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->log_info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
***************
*** 1950,1955 ****
    push @opts, "--css=$path2root/$args{css}" if $args{css};
      
!   $self->info("Creating $outfile\n");
!   $self->info("pod2html @opts\n") if $self->verbose;
    Pod::Html::pod2html(@opts);	# or warn "pod2html @opts failed: $!";
  }
--- 1951,1956 ----
    push @opts, "--css=$path2root/$args{css}" if $args{css};
      
!   $self->log_info("Creating $outfile\n");
!   $self->log_verbose("pod2html @opts\n");
    Pod::Html::pod2html(@opts);	# or warn "pod2html @opts failed: $!";
  }
***************
*** 2122,2126 ****
    chmod($mode, $manifest);
  
!   $self->info(map "Added to $manifest: $_\n", @$lines);
  }
  
--- 2123,2127 ----
    chmod($mode, $manifest);
  
!   $self->log_info(map "Added to $manifest: $_\n", @$lines);
  }
  
***************
*** 2129,2133 ****
  
    unless (eval { require Module::Signature; 1 }) {
!     $self->warn("Couldn't load Module::Signature for 'distsign' action:\n $@\n");
      return;
    }
--- 2130,2134 ----
  
    unless (eval { require Module::Signature; 1 }) {
!     $self->log_warn("Couldn't load Module::Signature for 'distsign' action:\n $@\n");
      return;
    }
***************
*** 2203,2207 ****
      unless ($dist_files and keys %$dist_files);
    
!   $self->warn("*** Did you forget to add $self->{metafile} to the MANIFEST?\n")
      unless exists $dist_files->{$self->{metafile}};
    
--- 2204,2208 ----
      unless ($dist_files and keys %$dist_files);
    
!   $self->log_warn("*** Did you forget to add $self->{metafile} to the MANIFEST?\n")
      unless exists $dist_files->{$self->{metafile}};
    
***************
*** 2213,2217 ****
      my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
      chmod +(stat $file)[2], $new
!       or $self->warn("Couldn't set permissions on $new: $!");
    }
    
--- 2214,2218 ----
      my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
      chmod +(stat $file)[2], $new
!       or $self->log_warn("Couldn't set permissions on $new: $!");
    }
    
***************
*** 2279,2283 ****
    my $maniskip = 'MANIFEST.SKIP';
    unless ( -e 'MANIFEST' || -e $maniskip ) {
!     $self->warn("File '$maniskip' does not exist: Creating a default '$maniskip'\n");
      $self->_write_default_maniskip($maniskip);
    }
--- 2280,2284 ----
    my $maniskip = 'MANIFEST.SKIP';
    unless ( -e 'MANIFEST' || -e $maniskip ) {
!     $self->log_warn("File '$maniskip' does not exist: Creating a default '$maniskip'\n");
      $self->_write_default_maniskip($maniskip);
    }
***************
*** 2369,2373 ****
    
    unless ($p->{license}) {
!     $self->warn("No license specified, setting license = 'unknown'\n");
      $p->{license} = 'unknown';
    }
--- 2370,2374 ----
    
    unless ($p->{license}) {
!     $self->log_warn("No license specified, setting license = 'unknown'\n");
      $p->{license} = 'unknown';
    }
***************
*** 2388,2392 ****
    require Module::Build::ConfigData;  # Only works after the 'build'
    unless (Module::Build::ConfigData->feature('YAML_support')) {
!     $self->warn(<<EOM);
  \nCouldn't load YAML.pm, generating a minimal META.yml without it.
  Please check and edit the generated metadata, or consider installing YAML.pm.\n
--- 2389,2393 ----
    require Module::Build::ConfigData;  # Only works after the 'build'
    unless (Module::Build::ConfigData->feature('YAML_support')) {
!     $self->log_warn(<<EOM);
  \nCouldn't load YAML.pm, generating a minimal META.yml without it.
  Please check and edit the generated metadata, or consider installing YAML.pm.\n
***************
*** 2480,2487 ****
    $file ||= $dir;
    
!   $self->info("Creating $file.tar.gz\n");
    
    if ($self->{args}{tar}) {
!     my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf';
      $self->do_system($self->split_like_shell($self->{args}{tar}), $tar_flags, "$file.tar", $dir);
      $self->do_system($self->split_like_shell($self->{args}{gzip}), "$file.tar") if $self->{args}{gzip};
--- 2481,2488 ----
    $file ||= $dir;
    
!   $self->log_info("Creating $file.tar.gz\n");
    
    if ($self->{args}{tar}) {
!     my $tar_flags = $self->verbose ? 'cvf' : 'cf';
      $self->do_system($self->split_like_shell($self->{args}{tar}), $tar_flags, "$file.tar", $dir);
      $self->do_system($self->split_like_shell($self->{args}{gzip}), "$file.tar") if $self->{args}{gzip};
***************
*** 2583,2587 ****
    foreach (@_) {
      next unless -e $_;
!     $self->info("Deleting $_\n");
      File::Path::rmtree($_, 0, 0);
      die "Couldn't remove '$_': $!\n" if -e $_;
--- 2584,2588 ----
    foreach (@_) {
      next unless -e $_;
!     $self->log_info("Deleting $_\n");
      File::Path::rmtree($_, 0, 0);
      die "Couldn't remove '$_': $!\n" if -e $_;
***************
*** 2625,2631 ****
    return $p->{have_compiler} if defined $p->{have_compiler};
    
!   $self->info("Checking if compiler tools configured... ") if $p->{verbose};
    my $have = $self->_cbuilder->have_compiler;
!   $self->info($have ? "ok.\n" : "failed.\n") if $p->{verbose};
    return $p->{have_compiler} = $have;
  }
--- 2626,2632 ----
    return $p->{have_compiler} if defined $p->{have_compiler};
    
!   $self->log_verbose("Checking if compiler tools configured... ");
    my $have = $self->_cbuilder->have_compiler;
!   $self->log_verbose($have ? "ok.\n" : "failed.\n");
    return $p->{have_compiler} = $have;
  }
***************
*** 2672,2676 ****
    my ($self, $file, %args) = @_;
    
!   $self->info("$file -> $args{outfile}\n");
  
    if (eval {require ExtUtils::ParseXS; 1}) {
--- 2673,2677 ----
    my ($self, $file, %args) = @_;
    
!   $self->log_info("$file -> $args{outfile}\n");
  
    if (eval {require ExtUtils::ParseXS; 1}) {
***************
*** 2694,2698 ****
  		   qq{-typemap "$typemap" "$file"});
      
!     $self->info($command);
      my $fh = IO::File->new("> $args{outfile}") or die "Couldn't write $args{outfile}: $!";
      print $fh `$command`;
--- 2695,2699 ----
  		   qq{-typemap "$typemap" "$file"});
      
!     $self->log_info($command);
      my $fh = IO::File->new("> $args{outfile}") or die "Couldn't write $args{outfile}: $!";
      print $fh `$command`;
***************
*** 2780,2784 ****
    unless ($self->up_to_date($file, "$file_base.bs")) {
      require ExtUtils::Mkbootstrap;
!     $self->info("ExtUtils::Mkbootstrap::Mkbootstrap('$file_base')\n");
      ExtUtils::Mkbootstrap::Mkbootstrap($file_base);  # Original had $BSLOADLIBS - what's that?
      {my $fh = IO::File->new(">> $file_base.bs")}  # create
--- 2781,2785 ----
    unless ($self->up_to_date($file, "$file_base.bs")) {
      require ExtUtils::Mkbootstrap;
!     $self->log_info("ExtUtils::Mkbootstrap::Mkbootstrap('$file_base')\n");
      ExtUtils::Mkbootstrap::Mkbootstrap($file_base);  # Original had $BSLOADLIBS - what's that?
      {my $fh = IO::File->new(">> $file_base.bs")}  # create
***************
*** 2793,2797 ****
  sub do_system {
    my ($self, @cmd) = @_;
!   $self->info("@cmd\n");
    return !system(@cmd);
  }
--- 2794,2798 ----
  sub do_system {
    my ($self, @cmd) = @_;
!   $self->log_info("@cmd\n");
    return !system(@cmd);
  }
***************
*** 2825,2829 ****
    File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);
    
!   $self->info("$file -> $to_path\n") if $args{verbose};
    File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
    return $to_path;
--- 2826,2830 ----
    File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);
    
!   $self->log_info("$file -> $to_path\n") if $args{verbose};
    File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
    return $to_path;
***************
*** 2840,2844 ****
    foreach my $file (@$source) {
      unless (-e $file) {
!       $self->warn("Can't find source file $file for up-to-date check");
        next;
      }
--- 2841,2845 ----
    foreach my $file (@$source) {
      unless (-e $file) {
!       $self->log_warn("Can't find source file $file for up-to-date check");
        next;
      }

[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.369,1.370

From: Ken W. <kwi...@us...> - 2005-01-06 02:34:42

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7935/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Route warnings & info messages through new warn() & info() methods

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.369
retrieving revision 1.370
diff -C2 -d -r1.369 -r1.370
*** Base.pm	5 Jan 2005 04:38:52 -0000	1.369
--- Base.pm	6 Jan 2005 02:34:21 -0000	1.370
***************
*** 13,16 ****
--- 13,17 ----
  use IO::File ();
  use Text::ParseWords ();
+ use Carp ();
  
  #################### Constructors ###########################
***************
*** 41,46 ****
    unless ($self->_perl_is_same($self->{properties}{perl})) {
      my $perl = $self->find_perl_interpreter;
!     warn(" * WARNING: Configuration was initially created with '$self->{properties}{perl}',\n".
! 	 "   but we are now using '$perl'.\n");
    }
    
--- 42,47 ----
    unless ($self->_perl_is_same($self->{properties}{perl})) {
      my $perl = $self->find_perl_interpreter;
!     $self->warn(" * WARNING: Configuration was initially created with '$self->{properties}{perl}',\n".
! 		"   but we are now using '$perl'.\n");
    }
    
***************
*** 99,103 ****
    # (e.g. to run tests).
    $p->{perl} = $self->find_perl_interpreter
!     or warn "Warning: Can't locate your perl binary";
  
    $p->{bindoc_dirs} ||= [ "$p->{blib}/script" ];
--- 100,104 ----
    # (e.g. to run tests).
    $p->{perl} = $self->find_perl_interpreter
!     or $self->warn("Warning: Can't locate your perl binary");
  
    $p->{bindoc_dirs} ||= [ "$p->{blib}/script" ];
***************
*** 118,121 ****
--- 119,125 ----
  ################## End constructors #########################
  
+ sub info { shift; print @_; }
+ sub warn { shift; Carp::carp @_; }
+ 
  sub _set_install_paths {
    my $self = shift;
***************
*** 288,292 ****
    return if $self->up_to_date([$self->config_file('config_data'), $self->config_file('features')], $notes_pm);
  
!   print "Writing config notes to $notes_pm\n";
    File::Path::mkpath(File::Basename::dirname($notes_pm));
    my $fh = IO::File->new("> $notes_pm") or die "Can't create '$notes_pm': $!";
--- 292,296 ----
    return if $self->up_to_date([$self->config_file('config_data'), $self->config_file('features')], $notes_pm);
  
!   $self->info("Writing config notes to $notes_pm\n");
    File::Path::mkpath(File::Basename::dirname($notes_pm));
    my $fh = IO::File->new("> $notes_pm") or die "Can't create '$notes_pm': $!";
***************
*** 618,622 ****
    my $filename = File::Spec->catfile($build_dir, 'lib', split '::', $opts{class}) . '.pm';
    my $filedir  = File::Basename::dirname($filename);
!   print "Creating custom builder $filename in $filedir\n";
    
    File::Path::mkpath($filedir);
--- 622,626 ----
    my $filename = File::Spec->catfile($build_dir, 'lib', split '::', $opts{class}) . '.pm';
    my $filedir  = File::Basename::dirname($filename);
!   $pack->info("Creating custom builder $filename in $filedir\n");
    
    File::Path::mkpath($filedir);
***************
*** 743,747 ****
    my $result = eval $eval;
    *UNIVERSAL::VERSION = $old_version;
!   warn "Error evaling version line '$eval' in $file: $@\n" if $@;
  
    # Unbless it if it's a version.pm object
--- 747,751 ----
    my $result = eval $eval;
    *UNIVERSAL::VERSION = $old_version;
!   $self->warn("Error evaling version line '$eval' in $file: $@\n") if $@;
  
    # Unbless it if it's a version.pm object
***************
*** 877,891 ****
      my $failures = $self->prereq_failures($info);
      if ($failures) {
!       warn "Feature '$name' disabled because of the following prerequisite failures:\n";
        foreach my $type (qw(requires build_requires conflicts recommends)) {
  	next unless $failures->{$type};
  	while (my ($module, $status) = each %{$failures->{$type}}) {
! 	  warn " * $status->{message}\n";
  	}
! 	warn "\n";
        }
        $self->feature($name => 0);
      } else {
!       warn "Feature '$name' enabled.\n\n";
        $self->feature($name => 1);
      }
--- 881,895 ----
      my $failures = $self->prereq_failures($info);
      if ($failures) {
!       $self->warn("Feature '$name' disabled because of the following prerequisite failures:\n");
        foreach my $type (qw(requires build_requires conflicts recommends)) {
  	next unless $failures->{$type};
  	while (my ($module, $status) = each %{$failures->{$type}}) {
! 	  $self->warn(" * $status->{message}\n");
  	}
! 	$self->warn("\n");
        }
        $self->feature($name => 0);
      } else {
!       $self->warn("Feature '$name' enabled.\n\n");
        $self->feature($name => 1);
      }
***************
*** 937,946 ****
      my $prefix = $type eq 'recommends' ? '' : 'ERROR: ';
      while (my ($module, $status) = each %{$failures->{$type}}) {
!       warn " * $prefix$status->{message}\n";
      }
    }
    
!   warn "ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions\n".
!        " of the modules indicated above before proceeding with this installation.\n\n";
    return 0;
  }
--- 941,950 ----
      my $prefix = $type eq 'recommends' ? '' : 'ERROR: ';
      while (my ($module, $status) = each %{$failures->{$type}}) {
!       $self->warn(" * $prefix$status->{message}\n");
      }
    }
    
!   $self->warn("ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions\n".
! 	      " of the modules indicated above before proceeding with this installation.\n\n");
    return 0;
  }
***************
*** 1026,1030 ****
    my $eval_str = "\$v1 $op \$v2";
    my $result   = eval $eval_str;
!   warn "error comparing versions: '$eval_str' $@" if $@;
  
    return $result;
--- 1030,1034 ----
    my $eval_str = "\$v1 $op \$v2";
    my $result   = eval $eval_str;
!   $self->warn("error comparing versions: '$eval_str' $@") if $@;
  
    return $result;
***************
*** 1148,1156 ****
    
    if ( $self->delete_filetree($build_script) ) {
!     print "Removed previous script '$build_script'\n";
    }
  
!   print("Creating new '$build_script' script for ",
! 	"'$dist_name' version '$dist_version'\n");
    my $fh = IO::File->new(">$build_script") or die "Can't create '$build_script': $!";
    $self->print_build_script($fh);
--- 1152,1160 ----
    
    if ( $self->delete_filetree($build_script) ) {
!     $self->info("Removed previous script '$build_script'\n");
    }
  
!   $self->info("Creating new '$build_script' script for ",
! 	      "'$dist_name' version '$dist_version'\n");
    my $fh = IO::File->new(">$build_script") or die "Can't create '$build_script': $!";
    $self->print_build_script($fh);
***************
*** 1163,1166 ****
--- 1167,1171 ----
  
  sub check_manifest {
+   my $self = shift;
    return unless -e 'MANIFEST';
    
***************
*** 1168,1182 ****
    # could easily be re-written into a modern Perl dialect.
  
-   print "Checking whether your kit is complete...\n";
    require ExtUtils::Manifest;  # ExtUtils::Manifest is not warnings clean.
    local ($^W, $ExtUtils::Manifest::Quiet) = (0,1);
    
    if (my @missed = ExtUtils::Manifest::manicheck()) {
!     print "Warning: the following files are missing in your kit:\n";
!     print "\t", join "\n\t", @missed;
!     print "\n";
!     print "Please inform the author.\n";
    } else {
!     print "Looks good\n";
    }
  }
--- 1173,1185 ----
    # could easily be re-written into a modern Perl dialect.
  
    require ExtUtils::Manifest;  # ExtUtils::Manifest is not warnings clean.
    local ($^W, $ExtUtils::Manifest::Quiet) = (0,1);
    
    if (my @missed = ExtUtils::Manifest::manicheck()) {
!     $self->warn("Warning: the following files are missing in your kit:\n",
! 		"\t", join("\n\t", @missed), "\n",
! 		"Please inform the author.\n");
    } else {
!     $self->info("Checking whether your kit is complete...\nLooks good\n");
    }
  }
***************
*** 1475,1479 ****
      Test::Harness::runtests(@$tests);
    } else {
!     print("No tests defined.\n");
    }
  
--- 1478,1482 ----
      Test::Harness::runtests(@$tests);
    } else {
!     $self->info("No tests defined.\n");
    }
  
***************
*** 1510,1514 ****
  
    unless ($self->find_module_by_name('Devel::Cover', \@INC)) {
!     warn("Cannot run testcover action unless Devel::Cover is installed.\n");
      return;
    }
--- 1513,1517 ----
  
    unless ($self->find_module_by_name('Devel::Cover', \@INC)) {
!     $self->warn("Cannot run testcover action unless Devel::Cover is installed.\n");
      return;
    }
***************
*** 1719,1723 ****
      my $interpreter = $self->{properties}{perl};
      
!     print STDOUT "Changing sharpbang in $file to $interpreter" if $self->{verbose};
      my $shb = '';
      $shb .= "$c->{sharpbang}$interpreter $arg\n" if $does_shbang;
--- 1722,1726 ----
      my $interpreter = $self->{properties}{perl};
      
!     $self->info("Changing sharpbang in $file to $interpreter") if $self->{verbose};
      my $shb = '';
      $shb .= "$c->{sharpbang}$interpreter $arg\n" if $does_shbang;
***************
*** 1747,1751 ****
      
      unlink "$file.bak"
!       or warn "Couldn't clean up $file.bak, leaving it there";
      
      $self->do_system($c->{eunicefix}, $file) if $c->{eunicefix} ne ':';
--- 1750,1754 ----
      
      unlink "$file.bak"
!       or $self->warn("Couldn't clean up $file.bak, leaving it there");
      
      $self->do_system($c->{eunicefix}, $file) if $c->{eunicefix} ne ':';
***************
*** 1805,1809 ****
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     print "Manifying $file -> $outfile\n";
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
--- 1808,1812 ----
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
***************
*** 1825,1829 ****
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     print "Manifying $file -> $outfile\n";
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
--- 1828,1832 ----
      my $outfile = File::Spec->catfile( $mandir, $manpage);
      next if $self->up_to_date( $file, $outfile );
!     $self->info("Manifying $file -> $outfile\n");
      $parser->parse_from_file( $file, $outfile );
      $files->{$file} = $outfile;
***************
*** 1947,1952 ****
    push @opts, "--css=$path2root/$args{css}" if $args{css};
      
!   print "Creating $outfile\n";
!   print "pod2html @opts\n" if $self->verbose;
    Pod::Html::pod2html(@opts);	# or warn "pod2html @opts failed: $!";
  }
--- 1950,1955 ----
    push @opts, "--css=$path2root/$args{css}" if $args{css};
      
!   $self->info("Creating $outfile\n");
!   $self->info("pod2html @opts\n") if $self->verbose;
    Pod::Html::pod2html(@opts);	# or warn "pod2html @opts failed: $!";
  }
***************
*** 2119,2123 ****
    chmod($mode, $manifest);
  
!   print map "Added to $manifest: $_\n", @$lines;
  }
  
--- 2122,2126 ----
    chmod($mode, $manifest);
  
!   $self->info(map "Added to $manifest: $_\n", @$lines);
  }
  
***************
*** 2126,2130 ****
  
    unless (eval { require Module::Signature; 1 }) {
!     warn "Couldn't load Module::Signature for 'distsign' action:\n $@\n";
      return;
    }
--- 2129,2133 ----
  
    unless (eval { require Module::Signature; 1 }) {
!     $self->warn("Couldn't load Module::Signature for 'distsign' action:\n $@\n");
      return;
    }
***************
*** 2200,2204 ****
      unless ($dist_files and keys %$dist_files);
    
!   warn "*** Did you forget to add $self->{metafile} to the MANIFEST?\n"
      unless exists $dist_files->{$self->{metafile}};
    
--- 2203,2207 ----
      unless ($dist_files and keys %$dist_files);
    
!   $self->warn("*** Did you forget to add $self->{metafile} to the MANIFEST?\n")
      unless exists $dist_files->{$self->{metafile}};
    
***************
*** 2210,2214 ****
      my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
      chmod +(stat $file)[2], $new
!       or warn "Couldn't set permissions on $new: $!";
    }
    
--- 2213,2217 ----
      my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
      chmod +(stat $file)[2], $new
!       or $self->warn("Couldn't set permissions on $new: $!");
    }
    
***************
*** 2276,2280 ****
    my $maniskip = 'MANIFEST.SKIP';
    unless ( -e 'MANIFEST' || -e $maniskip ) {
!     warn "File '$maniskip' does not exist: Creating a default '$maniskip'\n";
      $self->_write_default_maniskip($maniskip);
    }
--- 2279,2283 ----
    my $maniskip = 'MANIFEST.SKIP';
    unless ( -e 'MANIFEST' || -e $maniskip ) {
!     $self->warn("File '$maniskip' does not exist: Creating a default '$maniskip'\n");
      $self->_write_default_maniskip($maniskip);
    }
***************
*** 2366,2370 ****
    
    unless ($p->{license}) {
!     warn "No license specified, setting license = 'unknown'\n";
      $p->{license} = 'unknown';
    }
--- 2369,2373 ----
    
    unless ($p->{license}) {
!     $self->warn("No license specified, setting license = 'unknown'\n");
      $p->{license} = 'unknown';
    }
***************
*** 2385,2389 ****
    require Module::Build::ConfigData;  # Only works after the 'build'
    unless (Module::Build::ConfigData->feature('YAML_support')) {
!     warn <<EOM;
  \nCouldn't load YAML.pm, generating a minimal META.yml without it.
  Please check and edit the generated metadata, or consider installing YAML.pm.\n
--- 2388,2392 ----
    require Module::Build::ConfigData;  # Only works after the 'build'
    unless (Module::Build::ConfigData->feature('YAML_support')) {
!     $self->warn(<<EOM);
  \nCouldn't load YAML.pm, generating a minimal META.yml without it.
  Please check and edit the generated metadata, or consider installing YAML.pm.\n
***************
*** 2477,2481 ****
    $file ||= $dir;
    
!   print "Creating $file.tar.gz\n";
    
    if ($self->{args}{tar}) {
--- 2480,2484 ----
    $file ||= $dir;
    
!   $self->info("Creating $file.tar.gz\n");
    
    if ($self->{args}{tar}) {
***************
*** 2580,2584 ****
    foreach (@_) {
      next unless -e $_;
!     print "Deleting $_\n";
      File::Path::rmtree($_, 0, 0);
      die "Couldn't remove '$_': $!\n" if -e $_;
--- 2583,2587 ----
    foreach (@_) {
      next unless -e $_;
!     $self->info("Deleting $_\n");
      File::Path::rmtree($_, 0, 0);
      die "Couldn't remove '$_': $!\n" if -e $_;
***************
*** 2622,2628 ****
    return $p->{have_compiler} if defined $p->{have_compiler};
    
!   print "Checking if compiler tools configured... " if $p->{verbose};
    my $have = $self->_cbuilder->have_compiler;
!   print($have ? "ok.\n" : "failed.\n") if $p->{verbose};
    return $p->{have_compiler} = $have;
  }
--- 2625,2631 ----
    return $p->{have_compiler} if defined $p->{have_compiler};
    
!   $self->info("Checking if compiler tools configured... ") if $p->{verbose};
    my $have = $self->_cbuilder->have_compiler;
!   $self->info($have ? "ok.\n" : "failed.\n") if $p->{verbose};
    return $p->{have_compiler} = $have;
  }
***************
*** 2669,2673 ****
    my ($self, $file, %args) = @_;
    
!   print "$file -> $args{outfile}\n";
  
    if (eval {require ExtUtils::ParseXS; 1}) {
--- 2672,2676 ----
    my ($self, $file, %args) = @_;
    
!   $self->info("$file -> $args{outfile}\n");
  
    if (eval {require ExtUtils::ParseXS; 1}) {
***************
*** 2691,2695 ****
  		   qq{-typemap "$typemap" "$file"});
      
!     print $command;
      my $fh = IO::File->new("> $args{outfile}") or die "Couldn't write $args{outfile}: $!";
      print $fh `$command`;
--- 2694,2698 ----
  		   qq{-typemap "$typemap" "$file"});
      
!     $self->info($command);
      my $fh = IO::File->new("> $args{outfile}") or die "Couldn't write $args{outfile}: $!";
      print $fh `$command`;
***************
*** 2777,2781 ****
    unless ($self->up_to_date($file, "$file_base.bs")) {
      require ExtUtils::Mkbootstrap;
!     print "ExtUtils::Mkbootstrap::Mkbootstrap('$file_base')\n";
      ExtUtils::Mkbootstrap::Mkbootstrap($file_base);  # Original had $BSLOADLIBS - what's that?
      {my $fh = IO::File->new(">> $file_base.bs")}  # create
--- 2780,2784 ----
    unless ($self->up_to_date($file, "$file_base.bs")) {
      require ExtUtils::Mkbootstrap;
!     $self->info("ExtUtils::Mkbootstrap::Mkbootstrap('$file_base')\n");
      ExtUtils::Mkbootstrap::Mkbootstrap($file_base);  # Original had $BSLOADLIBS - what's that?
      {my $fh = IO::File->new(">> $file_base.bs")}  # create
***************
*** 2790,2794 ****
  sub do_system {
    my ($self, @cmd) = @_;
!   print "@cmd\n";
    return !system(@cmd);
  }
--- 2793,2797 ----
  sub do_system {
    my ($self, @cmd) = @_;
!   $self->info("@cmd\n");
    return !system(@cmd);
  }
***************
*** 2822,2826 ****
    File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);
    
!   print "$file -> $to_path\n" if $args{verbose};
    File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
    return $to_path;
--- 2825,2829 ----
    File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);
    
!   $self->info("$file -> $to_path\n") if $args{verbose};
    File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
    return $to_path;
***************
*** 2837,2841 ****
    foreach my $file (@$source) {
      unless (-e $file) {
!       warn "Can't find source file $file for up-to-date check";
        next;
      }
--- 2840,2844 ----
    foreach my $file (@$source) {
      unless (-e $file) {
!       $self->warn("Can't find source file $file for up-to-date check");
        next;
      }

[Module-build-checkins] Module-Build/lib/Module Build.pm,1.164.2.9,1.164.2.10

From: Ken W. <kwi...@us...> - 2005-01-06 01:03:49

Update of /cvsroot/module-build/Module-Build/lib/Module
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20495/lib/Module

Modified Files:
      Tag: release-0_26_branch
	Build.pm 
Log Message:
Version bump

Index: Build.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build.pm,v
retrieving revision 1.164.2.9
retrieving revision 1.164.2.10
diff -C2 -d -r1.164.2.9 -r1.164.2.10
*** Build.pm	18 Dec 2004 20:15:03 -0000	1.164.2.9
--- Build.pm	6 Jan 2005 01:03:38 -0000	1.164.2.10
***************
*** 16,20 ****
  use vars qw($VERSION @ISA);
  @ISA = qw(Module::Build::Base);
! $VERSION = '0.2607';
  $VERSION = eval $VERSION;
  
--- 16,20 ----
  use vars qw($VERSION @ISA);
  @ISA = qw(Module::Build::Base);
! $VERSION = '0.2608';
  $VERSION = eval $VERSION;

[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.368,1.369

From: Ken W. <kwi...@us...> - 2005-01-05 04:39:10

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8221/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Integrate from branch

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.368
retrieving revision 1.369
diff -C2 -d -r1.368 -r1.369
*** Base.pm	4 Jan 2005 05:26:38 -0000	1.368
--- Base.pm	5 Jan 2005 04:38:52 -0000	1.369
***************
*** 2481,2486 ****
    if ($self->{args}{tar}) {
      my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf';
!     $self->do_system($self->{args}{tar}, $tar_flags, "$file.tar", $dir);
!     $self->do_system($self->{args}{gzip}, "$file.tar") if $self->{args}{gzip};
    } else {
      require Archive::Tar;
--- 2481,2486 ----
    if ($self->{args}{tar}) {
      my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf';
!     $self->do_system($self->split_like_shell($self->{args}{tar}), $tar_flags, "$file.tar", $dir);
!     $self->do_system($self->split_like_shell($self->{args}{gzip}), "$file.tar") if $self->{args}{gzip};
    } else {
      require Archive::Tar;

[Module-build-checkins] Module-Build/lib/Module/Build/Platform Unix.pm,1.10,1.11

From: Ken W. <kwi...@us...> - 2005-01-05 04:39:07

Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8221/lib/Module/Build/Platform

Modified Files:
	Unix.pm 
Log Message:
Integrate from branch

Index: Unix.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Unix.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Unix.pm	10 Oct 2004 04:39:34 -0000	1.10
--- Unix.pm	5 Jan 2005 04:38:52 -0000	1.11
***************
*** 9,14 ****
  sub make_tarball {
    my $self = shift;
!   $self->{args}{tar}  ||= 'tar';
!   $self->{args}{gzip} ||= 'gzip';
    $self->SUPER::make_tarball(@_);
  }
--- 9,14 ----
  sub make_tarball {
    my $self = shift;
!   $self->{args}{tar}  ||= ['tar'];
!   $self->{args}{gzip} ||= ['gzip'];
    $self->SUPER::make_tarball(@_);
  }

[Module-build-checkins] Module-Build Changes,1.299.2.24,1.299.2.25

From: Ken W. <kwi...@us...> - 2005-01-05 04:37:46

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7983

Modified Files:
      Tag: release-0_26_branch
	Changes 
Log Message:
Use split_like_shell() on 'gzip' and 'tar' stuff

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.299.2.24
retrieving revision 1.299.2.25
diff -C2 -d -r1.299.2.24 -r1.299.2.25
*** Changes	29 Dec 2004 02:54:35 -0000	1.299.2.24
--- Changes	5 Jan 2005 04:37:32 -0000	1.299.2.25
***************
*** 1,9 ****
  Revision history for Perl extension Module::Build.
  
! 0.2608
  
   - Tilde-expansion is now performed on arguments passed to a
     compatibility-Makefile.PL [Spotted by Sam Vilain]
  
  0.2607 (Bug fix release in 0.26 series)  Sat Dec 18 14:14:09 CST 2004
  
--- 1,14 ----
  Revision history for Perl extension Module::Build.
  
! 0.2608  Tue Jan  4 21:44:57 CST 2005
  
   - Tilde-expansion is now performed on arguments passed to a
     compatibility-Makefile.PL [Spotted by Sam Vilain]
  
+  - We now run the 'gzip' and 'tar' values through split_like_shell()
+    when running the 'dist' action, so that e.g. the 'gzip' value can
+    be set to something like "gzip -f --best" and it'll work
+    correctly. [Spotted by Chris Dolan]
+ 
  0.2607 (Bug fix release in 0.26 series)  Sat Dec 18 14:14:09 CST 2004

[Module-build-checkins] Module-Build/lib/Module/Build/Platform Unix.pm,1.9,1.9.2.1

From: Ken W. <kwi...@us...> - 2005-01-05 04:37:43

Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7983/lib/Module/Build/Platform

Modified Files:
      Tag: release-0_26_branch
	Unix.pm 
Log Message:
Use split_like_shell() on 'gzip' and 'tar' stuff

Index: Unix.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Unix.pm,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -d -r1.9 -r1.9.2.1
*** Unix.pm	2 Apr 2004 02:19:51 -0000	1.9
--- Unix.pm	5 Jan 2005 04:37:33 -0000	1.9.2.1
***************
*** 29,34 ****
  sub make_tarball {
    my $self = shift;
!   $self->{args}{tar}  ||= 'tar';
!   $self->{args}{gzip} ||= 'gzip';
    $self->SUPER::make_tarball(@_);
  }
--- 29,34 ----
  sub make_tarball {
    my $self = shift;
!   $self->{args}{tar}  ||= ['tar'];
!   $self->{args}{gzip} ||= ['gzip'];
    $self->SUPER::make_tarball(@_);
  }

[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.9,1.340.2.10

From: Ken W. <kwi...@us...> - 2005-01-05 04:37:42

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7983/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Use split_like_shell() on 'gzip' and 'tar' stuff

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.9
retrieving revision 1.340.2.10
diff -C2 -d -r1.340.2.9 -r1.340.2.10
*** Base.pm	13 Dec 2004 04:16:40 -0000	1.340.2.9
--- Base.pm	5 Jan 2005 04:37:32 -0000	1.340.2.10
***************
*** 2309,2314 ****
    if ($self->{args}{tar}) {
      my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf';
!     $self->do_system($self->{args}{tar}, $tar_flags, "$file.tar", $dir);
!     $self->do_system($self->{args}{gzip}, "$file.tar") if $self->{args}{gzip};
    } else {
      require Archive::Tar;
--- 2309,2314 ----
    if ($self->{args}{tar}) {
      my $tar_flags = $self->{properties}{verbose} ? 'cvf' : 'cf';
!     $self->do_system($self->split_like_shell($self->{args}{tar}), $tar_flags, "$file.tar", $dir);
!     $self->do_system($self->split_like_shell($self->{args}{gzip}), "$file.tar") if $self->{args}{gzip};
    } else {
      require Archive::Tar;

[Module-build-checkins] Module-Build/lib/Module/Build Authoring.pod,1.3,1.4 Base.pm,1.367,1.368

From: Ken W. <kwi...@us...> - 2005-01-04 05:26:50

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23181/lib/Module/Build

Modified Files:
	Authoring.pod Base.pm 
Log Message:
Add the runtime_params() method

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.367
retrieving revision 1.368
diff -C2 -d -r1.367 -r1.368
*** Base.pm	27 Dec 2004 04:30:01 -0000	1.367
--- Base.pm	4 Jan 2005 05:26:38 -0000	1.368
***************
*** 270,273 ****
--- 270,274 ----
  sub config_data { shift()->_general_notes('config_data', @_) }
  sub feature      { shift()->_general_notes('features', @_) }
+ sub runtime_params { shift->_persistent_hash_read('runtime_params', @_ ? shift : ()) }
  
  sub add_build_element {
***************
*** 833,837 ****
    close $fh;
  
!   for ('cleanup', 'notes', 'features', 'config_data') {
      next unless -e $self->config_file($_);
      $self->_persistent_hash_restore($_);
--- 834,838 ----
    close $fh;
  
!   for (qw(cleanup notes features config_data runtime_params)) {
      next unless -e $self->config_file($_);
      $self->_persistent_hash_restore($_);
***************
*** 858,862 ****
    $self->_write_dumper('build_params', [$self->{args}, $self->{config}, $self->{properties}]);
  
!   $self->_persistent_hash_write($_) foreach qw(notes cleanup features config_data);
  }
  
--- 859,863 ----
    $self->_write_dumper('build_params', [$self->{args}, $self->{config}, $self->{properties}]);
  
!   $self->_persistent_hash_write($_) foreach qw(notes cleanup features config_data runtime_params);
  }
  
***************
*** 1305,1308 ****
--- 1306,1311 ----
    # Extract our 'properties' from $cmd_args, the rest are put in 'args'.
    while (my ($key, $val) = each %args) {
+     $self->_persistent_hash_write('runtime_params', { $key => $val })
+       if $self->valid_property($key);
      my $add_to = ( $key eq 'config' ? $self->{config}
                    : $additive{$key} ? $self->{properties}{$key}

Index: Authoring.pod
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Authoring.pod,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Authoring.pod	18 Dec 2004 20:57:05 -0000	1.3
--- Authoring.pod	4 Jan 2005 05:26:38 -0000	1.4
***************
*** 905,913 ****
  C<current()> method.
  
! The C<notes()> method is essentally a glorified hash access.  With no
! arguments, C<notes()> returns a reference to the entire hash of notes.
! With one argument, C<notes($key)> returns the value associated with
! the given key.  With two arguments, C<notes($key, $value)> sets the
! value associated with the given key to C<$value>.
  
  The lifetime of the C<notes> data is for "a build" - that is, the
--- 905,913 ----
  C<current()> method.
  
! The C<notes()> method is essentally a glorified hash access. With no
! arguments, C<notes()> returns the entire hash of notes. With one argument,
! C<notes($key)> returns the value associated with the given key. With two
! arguments, C<notes($key, $value)> sets the value associated with the given key
! to C<$value>.
  
  The lifetime of the C<notes> data is for "a build" - that is, the
***************
*** 917,920 ****
--- 917,943 ----
  run again or the C<clean> action is run.
  
+ =item runtime_params()
+ 
+ =item runtime_params($key)
+ 
+ The C<runtime_params()> method stores the values passed on the command-line
+ for valid properties (that is, any command-line options for which
+ C<valid_property()> returns a true value). The value on the command-line may
+ override the default value for a property, as well as any value specified in a
+ call to C<new()>. This allows you to programmatically tell if C<perl Build.PL>
+ or any execution of C<./Build> had command-line options specified that
+ override valid properties.
+ 
+ The C<runtime_params()> method is essentally a glorified read-only hash. With
+ no arguments, C<runtime_params()> returns the entire hash of properties
+ specified on the command-line. With one argument, C<runtime_params($key)>
+ returns the value associated with the given key.
+ 
+ The lifetime of the C<runtime_params> data is for "a build" - that is, the
+ C<runtime_params> hash is created when C<perl Build.PL> is run (or when the
+ C<new()> method is called, if the Module::Build Perl API is being used instead
+ of called from a shell), and lasts until C<perl Build.PL> is run again or the
+ C<clean> action is run.
+ 
  =item os_type()

[Module-build-checkins] Module-Build Changes,1.325,1.326

From: Ken W. <kwi...@us...> - 2005-01-04 05:26:48

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23181

Modified Files:
	Changes 
Log Message:
Add the runtime_params() method

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.325
retrieving revision 1.326
diff -C2 -d -r1.325 -r1.326
*** Changes	29 Dec 2004 02:54:47 -0000	1.325
--- Changes	4 Jan 2005 05:26:38 -0000	1.326
***************
*** 21,24 ****
--- 21,29 ----
     lines.  [Ron Savage]
  
+  - Added a runtime_params() method, which lets a module author see
+    which parameters were overridden by the user on the command line
+    (or in whatever paradigm the user originally invoked Module::Build
+    from). [David Wheeler]
+ 
   - A user-specified 'install_path' setting will now take precedence
     over an 'install_base' setting.  This allows the user to use

[Module-build-checkins] Module-Build/t basic.t,1.34,1.35

From: Ken W. <kwi...@us...> - 2005-01-04 05:26:48

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23181/t

Modified Files:
	basic.t 
Log Message:
Add the runtime_params() method

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** basic.t	7 Dec 2004 03:25:54 -0000	1.34
--- basic.t	4 Jan 2005 05:26:39 -0000	1.35
***************
*** 3,7 ****
  use strict;
  use Test;
! BEGIN { plan tests => 43 }
  use Module::Build;
  ok(1);
--- 3,7 ----
  use strict;
  use Test;
! BEGIN { plan tests => 52 }
  use Module::Build;
  ok(1);
***************
*** 123,127 ****
    chdir 'Sample';
  
!   eval {Module::Build->run_perl_script('Build.PL', [], ['--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey'])};
    ok $@, '';
    
--- 123,127 ----
    chdir 'Sample';
  
!   eval {Module::Build->run_perl_script('Build.PL', [], ['--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey', '--destdir', 'yo', '--verbose', '1'])};
    ok $@, '';
    
***************
*** 137,140 ****
--- 137,149 ----
    ok $b->args('any'), 'hey';
    ok $b->args('dee'), 'goo';
+   ok $b->destdir, 'yo';
+   ok $b->runtime_params('destdir'), 'yo';
+   ok $b->runtime_params('verbose'), '1';
+   ok !$b->runtime_params('license');
+   ok my %runtime = $b->runtime_params;
+   ok scalar keys %runtime, 3;
+   ok $runtime{destdir}, 'yo';
+   ok $runtime{verbose}, '1';
+   ok $runtime{config};
  
    ok my $argsref = $b->args;

[Module-build-checkins] Module-Build Changes,1.324,1.325

From: Ken W. <kwi...@us...> - 2004-12-29 02:54:56

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2659

Modified Files:
	Changes 
Log Message:


Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.324
retrieving revision 1.325
diff -C2 -d -r1.324 -r1.325
*** Changes	28 Dec 2004 05:13:50 -0000	1.324
--- Changes	29 Dec 2004 02:54:47 -0000	1.325
***************
*** 2,7 ****
  
  
- (pending checkins)
- 
  0.27_01 (Beta for 0.28)
  
--- 2,5 ----
***************
*** 29,35 ****
     additional kinds of targets.
  
-  - Tilde-expansion is now performed on arguments passed to a
-    compatibility-Makefile.PL [Spotted by Sam Vilain]
- 
   * When using the 'install_base' option to choose a directory for
     installing everything, perl modules now go into lib/perl5/ instead
--- 27,30 ----

[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.57,1.57.2.1

From: Ken W. <kwi...@us...> - 2004-12-29 02:54:47

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2611/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Compat.pm 
Log Message:
Integrate from mainline

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57
retrieving revision 1.57.2.1
diff -C2 -d -r1.57 -r1.57.2.1
*** Compat.pm	30 Jul 2004 15:20:11 -0000	1.57
--- Compat.pm	29 Dec 2004 02:54:36 -0000	1.57.2.1
***************
*** 135,138 ****
--- 135,142 ----
      my ($key, $val) = ($arg =~ /^(\w+)=(.+)/ ? ($1, $2) :
  		       die "Malformed argument '$arg'");
+ 
+     # Do tilde-expansion like MakeMaker does, more or less
+     $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
+ 
      if (exists $makefile_to_build{$key}) {
        my $trans = $makefile_to_build{$key};

[Module-build-checkins] Module-Build/t compat.t,1.17,1.17.2.1

From: Ken W. <kwi...@us...> - 2004-12-29 02:54:46

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2611/t

Modified Files:
      Tag: release-0_26_branch
	compat.t 
Log Message:
Integrate from mainline

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17
retrieving revision 1.17.2.1
diff -C2 -d -r1.17 -r1.17.2.1
*** compat.t	13 Jul 2004 03:56:56 -0000	1.17
--- compat.t	29 Dec 2004 02:54:36 -0000	1.17.2.1
***************
*** 21,25 ****
  my @makefile_types = qw(small passthrough traditional);
  my $tests_per_type = 10;
! plan tests => 30 + @makefile_types*$tests_per_type;
  ok(1);  # Loaded
  
--- 21,25 ----
  my @makefile_types = qw(small passthrough traditional);
  my $tests_per_type = 10;
! plan tests => 32 + @makefile_types*$tests_per_type;
  ok(1);  # Loaded
  
***************
*** 145,148 ****
--- 145,161 ----
  }
  
+ {
+   # Make sure tilde-expansion works
+   Module::Build::Compat->create_makefile_pl('passthrough', $build);
+ 
+   $build->run_perl_script('Makefile.PL', [], ['INSTALL_BASE=~/foo']);
+   my $b2 = Module::Build->current;
+   ok $b2->install_base;
+   ok $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
+   
+   $build->do_system(@make, 'realclean');
+   1 while unlink 'Makefile.PL';
+ }
+ 
  #########################################################

[Module-build-checkins] Module-Build Changes,1.299.2.23,1.299.2.24

From: Ken W. <kwi...@us...> - 2004-12-29 02:54:45

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2611

Modified Files:
      Tag: release-0_26_branch
	Changes 
Log Message:
Integrate from mainline

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.299.2.23
retrieving revision 1.299.2.24
diff -C2 -d -r1.299.2.23 -r1.299.2.24
*** Changes	18 Dec 2004 20:15:03 -0000	1.299.2.23
--- Changes	29 Dec 2004 02:54:35 -0000	1.299.2.24
***************
*** 1,4 ****
--- 1,9 ----
  Revision history for Perl extension Module::Build.
  
+ 0.2608
+ 
+  - Tilde-expansion is now performed on arguments passed to a
+    compatibility-Makefile.PL [Spotted by Sam Vilain]
+ 
  0.2607 (Bug fix release in 0.26 series)  Sat Dec 18 14:14:09 CST 2004

[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.58,1.59

From: Ken W. <kwi...@us...> - 2004-12-28 05:16:43

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25836/lib/Module/Build

Modified Files:
	Compat.pm 
Log Message:
Use --foo bar, not foo=bar

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -d -r1.58 -r1.59
*** Compat.pm	28 Dec 2004 05:13:50 -0000	1.58
--- Compat.pm	28 Dec 2004 05:16:35 -0000	1.59
***************
*** 141,150 ****
      if (exists $makefile_to_build{$key}) {
        my $trans = $makefile_to_build{$key};
!       push @out, ref($trans) ? $trans->($val) : "$trans=$val";
      } elsif (exists $Config{lc($key)}) {
!       push @out, 'config=' . lc($key) . "=$val";
      } else {
        # Assume M::B can handle it in lowercase form
!       push @out, "\L$key\E=$val";
      }
    }
--- 141,150 ----
      if (exists $makefile_to_build{$key}) {
        my $trans = $makefile_to_build{$key};
!       push @out, ref($trans) ? $trans->($val) : ("--$trans", $val);
      } elsif (exists $Config{lc($key)}) {
!       push @out, '--config', lc($key) . "=$val";
      } else {
        # Assume M::B can handle it in lowercase form
!       push @out, "--\L$key", $val;
      }
    }

[Module-build-checkins] Module-Build Changes,1.323,1.324

From: Ken W. <kwi...@us...> - 2004-12-28 05:14:01

Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25334

Modified Files:
	Changes 
Log Message:
Do tilde-expansion on args to Makefile.PL

Index: Changes
===================================================================
RCS file: /cvsroot/module-build/Module-Build/Changes,v
retrieving revision 1.323
retrieving revision 1.324
diff -C2 -d -r1.323 -r1.324
*** Changes	27 Dec 2004 04:30:01 -0000	1.323
--- Changes	28 Dec 2004 05:13:50 -0000	1.324
***************
*** 29,32 ****
--- 29,35 ----
     additional kinds of targets.
  
+  - Tilde-expansion is now performed on arguments passed to a
+    compatibility-Makefile.PL [Spotted by Sam Vilain]
+ 
   * When using the 'install_base' option to choose a directory for
     installing everything, perl modules now go into lib/perl5/ instead

Flat | Threaded

<< < 1 .. 34 35 36 37 38 .. 42 > >> (Page 36 of 42)

2004	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (82)	Dec (58)
2005	Jan (49)	Feb (57)	Mar (49)	Apr (49)	May (2)	Jun (147)	Jul (60)	Aug (55)	Sep (51)	Oct (68)	Nov (61)	Dec (44)
2006	Jan (27)	Feb (38)	Mar (89)	Apr (31)	May (17)	Jun	Jul	Aug	Sep	Oct	Nov	Dec