fix a hash order dependency in cpan/List-Util tests
authorYves Orton <demerphq@gmail.com>
Wed, 21 Nov 2012 08:45:06 +0000 (09:45 +0100)
committerYves Orton <demerphq@gmail.com>
Wed, 21 Nov 2012 08:48:49 +0000 (09:48 +0100)
cpan/List-Util/t/tainted.t fails if the environment variable
it access is PERL5LIB as that is set inside the process.

We filter out env vars starting with PERL and bump the version
numbers to 1.25_01.

cpan/List-Util/Changes
cpan/List-Util/lib/List/Util.pm
cpan/List-Util/lib/List/Util/XS.pm
cpan/List-Util/lib/Scalar/Util.pm
cpan/List-Util/t/tainted.t

index f737c1d..1fcd9f6 100644 (file)
@@ -1,3 +1,8 @@
+1.25_01 -- Wed Nov 21 09:47
+
+  * Fix a hash order dependency bug t/tainted.t
+    (Currently this is a core only version to fix perl5 smokes)
+
 1.25 -- Sat Mar 24 13:10:13 UTC 2012
 
   * Restore back-compat. to perl 5.6 (thanks to Zefram)
index 033ef50..c07e2d8 100644 (file)
@@ -13,7 +13,7 @@ require Exporter;
 
 our @ISA        = qw(Exporter);
 our @EXPORT_OK  = qw(first min max minstr maxstr reduce sum shuffle);
-our $VERSION    = "1.25";
+our $VERSION    = "1.25_01";
 our $XS_VERSION = $VERSION;
 $VERSION    = eval $VERSION;
 
index d46853c..b196e7d 100644 (file)
@@ -2,7 +2,7 @@ package List::Util::XS;
 use strict;
 use List::Util;
 
-our $VERSION = "1.25";       # FIXUP
+our $VERSION = "1.25_01";    # FIXUP
 $VERSION = eval $VERSION;    # FIXUP
 
 1;
index ab97fe5..4d034fc 100644 (file)
@@ -12,7 +12,7 @@ require List::Util; # List::Util loads the XS
 
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
-our $VERSION    = "1.25";
+our $VERSION    = "1.25_01";
 $VERSION   = eval $VERSION;
 
 our @EXPORT_FAIL;
index ab40aa6..8666117 100644 (file)
@@ -26,7 +26,7 @@ my $var = 2;
 
 ok( !tainted($var), 'known variable');
 
-my $key = (keys %ENV)[0];
+my $key = (grep { !/^PERL/ } keys %ENV)[0];
 
 ok( tainted($ENV{$key}),       'environment variable');