This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't use ~0 as a version number -- it could overflow.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 20 Sep 2007 08:59:34 +0000 (08:59 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 20 Sep 2007 08:59:34 +0000 (08:59 +0000)
p4raw-id: //depot/perl@31920

lib/CPANPLUS/t/40_CPANPLUS-Internals-Report.t

index b028404..67730a7 100644 (file)
@@ -104,7 +104,7 @@ my $map = {
         pre_hook    => sub {
                         my $mod     = shift;
                         my $clone   = $mod->clone;
-                        $clone->status->prereqs( { $ModPrereq => ~0 } );
+                        $clone->status->prereqs( { $ModPrereq => ~0/2 } );
                         return $clone;
                     },
         failed      => 1,
@@ -273,7 +273,7 @@ my $map = {
     }
     
     {   my $clone   = $Mod->clone;
-        my $prereqs = { $ModPrereq => ~0 };
+        my $prereqs = { $ModPrereq => ~0/2 };
     
         $clone->status->prereqs( $prereqs );