fix a hash order dependency in cpan/List-Util tests

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.

5 files changed, 9 insertions, 4 deletions

diff --git a/cpan/List-Util/Changes b/cpan/List-Util/Changes
index f737c1da5a..1fcd9f6102 100644
--- a/cpan/List-Util/Changes
+++ b/cpan/List-Util/Changes
@@ -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)
diff --git a/cpan/List-Util/lib/List/Util.pm b/cpan/List-Util/lib/List/Util.pm
index 033ef505c0..c07e2d8ab0 100644
--- a/cpan/List-Util/lib/List/Util.pm
+++ b/cpan/List-Util/lib/List/Util.pm
@@ -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;
 
diff --git a/cpan/List-Util/lib/List/Util/XS.pm b/cpan/List-Util/lib/List/Util/XS.pm
index d46853ca23..b196e7dbb5 100644
--- a/cpan/List-Util/lib/List/Util/XS.pm
+++ b/cpan/List-Util/lib/List/Util/XS.pm
@@ -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;
diff --git a/cpan/List-Util/lib/Scalar/Util.pm b/cpan/List-Util/lib/Scalar/Util.pm
index ab97fe5446..4d034fcb24 100644
--- a/cpan/List-Util/lib/Scalar/Util.pm
+++ b/cpan/List-Util/lib/Scalar/Util.pm
@@ -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;
diff --git a/cpan/List-Util/t/tainted.t b/cpan/List-Util/t/tainted.t
index ab40aa69fe..8666117fe4 100644
--- a/cpan/List-Util/t/tainted.t
+++ b/cpan/List-Util/t/tainted.t
@@ -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');