This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge branch 'drolsky/release-5.15.6' into blead
authorDave Rolsky <autarch@urth.org>
Tue, 20 Dec 2011 18:04:39 +0000 (12:04 -0600)
committerDave Rolsky <autarch@urth.org>
Tue, 20 Dec 2011 18:04:39 +0000 (12:04 -0600)
17 files changed:
Porting/Maintainers.pl
Porting/pod_rules.pl
cpan/CPANPLUS/lib/CPANPLUS.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
dist/Cwd/Cwd.pm
dist/Cwd/lib/File/Spec.pm
dist/Cwd/lib/File/Spec/Cygwin.pm
dist/Cwd/lib/File/Spec/Epoc.pm
dist/Cwd/lib/File/Spec/Functions.pm
dist/Cwd/lib/File/Spec/Mac.pm
dist/Cwd/lib/File/Spec/OS2.pm
dist/Cwd/lib/File/Spec/Unix.pm
dist/Cwd/lib/File/Spec/VMS.pm
dist/Cwd/lib/File/Spec/Win32.pm
pod/perldelta.pod

index c377630..1249ccb 100755 (executable)
@@ -447,7 +447,7 @@ use File::Glob qw(:case);
 
     'CPANPLUS' => {
         'MAINTAINER'   => 'kane',
-        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9113.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9114.tar.gz',
         'FILES'        => q[cpan/CPANPLUS],
         'EXCLUDED'     => [
             qr{^inc/},
index d23f86f..689219a 100644 (file)
@@ -268,7 +268,7 @@ pod/$_: pod/$state->{copies}{$_}
 }
 
 # Do stuff
-while (my ($target, $name) = each %Targets) {
+while (my ($target, $name) = each %Build) {
     print "Now processing $name\n" if $Verbose;
 
     my $orig = slurp_or_die($name);
index 6e2ae0c..5bea8c3 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
     use vars        qw( @EXPORT @ISA $VERSION );
     @EXPORT     =   qw( shell fetch get install );
     @ISA        =   qw( Exporter );
-    $VERSION = "0.9113";     #have to hardcode or cpan.org gets unhappy
+    $VERSION = "0.9114";     #have to hardcode or cpan.org gets unhappy
 }
 
 ### purely for backward compatibility, so we can call it from the commandline:
index 9b85f29..22af846 100644 (file)
@@ -600,6 +600,8 @@ sub _resolve_prereqs {
     ### list of module objects + desired versions
     my @install_me;
 
+    my $flag;
+
     for my $mod ( @sorted_prereqs ) {
         ( my $version = $prereqs->{$mod} ) =~ s#[^0-9\._]+##g;
 
@@ -632,6 +634,7 @@ sub _resolve_prereqs {
             my $core = $sub->( $mod );
             unless ( defined $core ) {
                error( loc( "No such module '%1' found on CPAN", $mod ) );
+               $flag++;
                next;
             }
             if ( $cb->_vcmp( $version, $core ) > 0 ) {
@@ -690,7 +693,6 @@ sub _resolve_prereqs {
         }
     }
 
-    my $flag;
     for my $aref (@install_me) {
         my($modobj,$version) = @$aref;
 
index f428e3f..b0cfc7b 100644 (file)
@@ -42,7 +42,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.9113";
+$VERSION = "0.9114";
 
 =pod
 
index e56ce68..dcc76bf 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.9113";
+    $VERSION = "0.9114";
 }
 
 load CPANPLUS::Shell;
index ac6ee3d..7d04260 100644 (file)
@@ -171,9 +171,9 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.38';
+$VERSION = '3.39_01';
 my $xs_version = $VERSION;
-$VERSION = eval $VERSION;
+$VERSION =~ tr/_//;
 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
index 2d60b89..9ddfa9f 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.34';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 my %module = (MacOS   => 'Mac',
              MSWin32 => 'Win32',
index 0709c6f..3410d36 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index a3bb62b..8ffb4e3 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec::Epoc;
 use strict;
 use vars qw($VERSION @ISA);
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 require File::Spec::Unix;
 @ISA = qw(File::Spec::Unix);
index 2ee8f5d..581d4f2 100644 (file)
@@ -5,8 +5,8 @@ use strict;
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 require Exporter;
 
index 1fa533c..129fd75 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index a380dd7..b10a6b3 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.33';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index b348147..066a6c9 100644 (file)
@@ -3,8 +3,8 @@ package File::Spec::Unix;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 =head1 NAME
 
index 9164dbc..a7d261b 100644 (file)
@@ -4,8 +4,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index fa5c3b1..8cfd1f7 100644 (file)
@@ -5,8 +5,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.35';
-$VERSION = eval $VERSION;
+$VERSION = '3.39_01';
+$VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
 
index 7b3a948..a57f041 100644 (file)
@@ -354,7 +354,7 @@ L<CPAN::Meta::YAML> has been upgraded from version 0.004 to version
 
 =item *
 
-L<CPANPLUS> has been upgraded from version 0.9112 to version 0.9113.
+L<CPANPLUS> has been upgraded from version 0.9112 to version 0.9114.
 
 =item *