Make the new test work in the core and bump version of Safe to 2.20

diff --git a/dist/Safe/Changes b/dist/Safe/Changes
index 36e9943..db471a7 100644 (file)
--- a/dist/Safe/Changes
+++ b/dist/Safe/Changes
@@ -1,3 +1,7 @@
+2.20 Tue Dec 1 2009
+    fix [rt.cpan.org #51574] Safe.pm sort {} bug accessing $a and $b with
+        -Dusethreads (Tim Bunce)
+
 2.19 Tue Aug 25 2009
     t/safeuniversal.t failure under 5.8.9 (Jerry D. Hedden)
 

diff --git a/dist/Safe/META.yml b/dist/Safe/META.yml
index 79cbd4d..edf9d53 100644 (file)
--- a/dist/Safe/META.yml
+++ b/dist/Safe/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Safe
-version:             2.19
+version:             2.20
 abstract:            ~
 license:             ~
 author:              ~

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 4313263..eb7d68b 100644 (file)
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -6,7 +6,7 @@ use Scalar::Util qw(reftype);
 use Config qw(%Config);
 use constant is_usethreads => $Config{usethreads};
 
-$Safe::VERSION = "2.19";
+$Safe::VERSION = "2.20";
 
 # *** Don't declare any lexicals above this point ***
 #

diff --git a/dist/Safe/t/safesort.t b/dist/Safe/t/safesort.t
index 383ad1a..2b90afc 100644 (file)
--- a/dist/Safe/t/safesort.t
+++ b/dist/Safe/t/safesort.t
@@ -1,10 +1,6 @@
-#!./perl -w
+#!perl -w
 $|=1;
 BEGIN {
-    if($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";