Storable test nosewipe.

p4raw-id: //depot/perl@20262

diff --git a/ext/Storable/t/code.t b/ext/Storable/t/code.t
index c8b2ca1..b66cae7 100644 (file)
--- a/ext/Storable/t/code.t
+++ b/ext/Storable/t/code.t
@@ -25,7 +25,7 @@ BEGIN {
     if (!eval q{
        use Test;
        use B::Deparse 0.61;
-       use 5.6.0;
+       use 5.006;
        1;
     }) {
        print "1..0 # skip: tests only work with B::Deparse 0.61 and at least perl 5.6.0\n";
@@ -55,6 +55,8 @@ $blessed_code = bless sub { "blessed" }, "Some::Package";
     sub code { "JAPH" }
 }
 
+local *FOO;
+
 @obj =
     ([\&code,                   # code reference
       sub { 6*7 },

diff --git a/ext/Storable/t/utf8hash.t b/ext/Storable/t/utf8hash.t
index 25fd978..05d9272 100644 (file)
--- a/ext/Storable/t/utf8hash.t
+++ b/ext/Storable/t/utf8hash.t
@@ -8,6 +8,7 @@ sub BEGIN {
     if ($ENV{PERL_CORE}){
        chdir('t') if -d 't';
        @INC = ('.', '../lib');
+       use vars qw($MacPerl::Architecture);
        push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS';
     } else {
        unshift @INC, 't';