Update CPANPLUS to CPAN version 0.9011
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 9 Jan 2011 00:16:46 +0000 (00:16 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 9 Jan 2011 00:16:46 +0000 (00:16 +0000)
  [DELTA]

  Changes for 0.9011      Fri Jan  7 22:01:56 2011
  ================================================
  * Remove reporting $! after make test fails. It is misleading
    in test reports
  * Don't unset PERL_MM_USE_DEFAULT if it is already set
    in cpan2dist
  * Apply blead patches from Peter Acklam

Porting/Maintainers.pl
cpan/CPANPLUS/bin/cpan2dist
cpan/CPANPLUS/lib/CPANPLUS.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
cpan/CPANPLUS/t/15_CPANPLUS-Shell.t
pod/perldelta.pod

index b47b772..af588fb 100755 (executable)
@@ -409,7 +409,7 @@ use File::Glob qw(:case);
     'CPANPLUS' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'BINGOS/CPANPLUS-0.9010.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/CPANPLUS-0.9011.tar.gz',
        'FILES'         => q[cpan/CPANPLUS],
        'EXCLUDED'      => [ qr{^inc/},
                             qr{^t/dummy-.*\.hidden$},
index d12adb1..2764739 100644 (file)
@@ -54,7 +54,9 @@ my $timeout     = exists $opts->{'timeout'}
                     : 300;
 
 ### use default answers?
-$ENV{'PERL_MM_USE_DEFAULT'} = $opts->{'defaults'} ? 1 : 0;
+unless ( $ENV{'PERL_MM_USE_DEFAULT'} ) {
+  $ENV{'PERL_MM_USE_DEFAULT'} = $opts->{'defaults'} ? 1 : 0;
+}
 
 my $format;
 ### if provided, we go with the command line option, fall back to conf setting
index bd65595..0cc1819 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
     use vars        qw( @EXPORT @ISA $VERSION );
     @EXPORT     =   qw( shell fetch get install );
     @ISA        =   qw( Exporter );
-    $VERSION = "0.9010";     #have to hardcode or cpan.org gets unhappy
+    $VERSION = "0.9011";     #have to hardcode or cpan.org gets unhappy
 }
 
 ### purely for backward compatibility, so we can call it from the commandline:
index bd85b6b..79f537a 100644 (file)
@@ -694,7 +694,7 @@ sub create {
             
                 $dist->status->test(1);
             } else {
-                error( loc( "MAKE TEST failed: %1 %2", $!, $captured ) );
+                error( loc( "MAKE TEST failed: %1", $captured ) );
             
                 ### send out error report here? or do so at a higher level?
                 ### --higher level --kane.
index 0aa3853..127a053 100644 (file)
@@ -42,7 +42,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.9010";
+$VERSION = "0.9011";
 
 =pod
 
index e753eeb..b839a75 100644 (file)
@@ -178,7 +178,7 @@ sub _extract {
     ### set them all to be +w for the owner, so we don't get permission
     ### denied for overwriting files that are just +r
     
-    ### this is too rigorous -- just change to +w for the owner [cpan #13358] 
+    ### this is too rigorous -- just change to +w for the owner [cpan #13358]
     #chmod 0755, map { File::Spec->rel2abs( File::Spec->catdir($to, $_) ) }
     #            @{$ae->files};
     
index ca507b7..187285e 100644 (file)
@@ -26,7 +26,7 @@ local $Data::Dumper::Indent     = 1; # for dumpering from !
 BEGIN {
     use vars        qw[ $VERSION @ISA ];
     @ISA        =   qw[ CPANPLUS::Shell::_Base::ReadLine ];
-    $VERSION = "0.9010";
+    $VERSION = "0.9011";
 }
 
 load CPANPLUS::Shell;
index f35d108..fc8f9fe 100644 (file)
@@ -135,7 +135,7 @@ isa_ok( $Shell, $Default,       "   Object" );
 
 __END__
 
-#### test separately, they have side effects     
+#### test separately, they have side effects
 'q'                     => qr/^$/,          # no output!
 's save boxed'          => do { my $re = CONFIG_BOXED;       qr/$re/ },        
 ### this doens't write any output 
index b366606..bc9a660 100644 (file)
@@ -128,6 +128,10 @@ C<CGI> has been upgraded from version 3.50 to 3.51
 
 =item *
 
+C<CPANPLUS> has been upgraded from version 0.9010 to 0.9011
+
+=item *
+
 C<CPANPLUS::Dist::Build> has been upgraded from 0.50 to 0.52
 
 =item *