This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update CPANPLUS to CPAN version 0.9121
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 17 Mar 2012 23:50:17 +0000 (23:50 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 17 Mar 2012 23:50:17 +0000 (23:50 +0000)
This resolves a regression introduced with v0.9109
which was included with perl version v5.15.2 and is
therefore a regression since v5.14.x

  [DELTA]

  Changes for 0.9121      Sat Mar 17 23:23:42 2012
  ================================================
  * Resolved a regression with dev '_' version
    numbers since 0.9109

Porting/Maintainers.pl
cpan/CPANPLUS/lib/CPANPLUS.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm

index bf02e5f..eb4156d 100755 (executable)
@@ -448,7 +448,7 @@ use File::Glob qw(:case);
 
     'CPANPLUS' => {
         'MAINTAINER'   => 'kane',
-        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9120.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9121.tar.gz',
         'FILES'        => q[cpan/CPANPLUS],
         'EXCLUDED'     => [
             qr{^inc/},
index 5297487..e1fc6ef 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
     use vars        qw( @EXPORT @ISA $VERSION );
     @EXPORT     =   qw( shell fetch get install );
     @ISA        =   qw( Exporter );
-    $VERSION = "0.9120";     #have to hardcode or cpan.org gets unhappy
+    $VERSION = "0.9121";     #have to hardcode or cpan.org gets unhappy
 }
 
 ### purely for backward compatibility, so we can call it from the commandline:
index 3dde367..e9f97bf 100644 (file)
@@ -42,7 +42,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.9120";
+$VERSION = "0.9121";
 
 =pod
 
index afd4725..e9651ed 100644 (file)
@@ -200,6 +200,7 @@ sub _version_to_number {
 
     check( $tmpl, \%hash ) or return;
 
+    $version =~ s!_!!g; # *sigh*
     return $version if $version =~ /^\d*(?:\.\d+)?$/;
     if ( my ($vers) = $version =~ /^(v?\d+(?:\.\d+(?:\.\d+)?)?)/ ) {
       return eval { version->parse($vers)->numify };
index 04e9775..56dce06 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.9120";
+    $VERSION = "0.9121";
 }
 
 load CPANPLUS::Shell;