Storable test nosewipe.

p4raw-id: //depot/perl@20262

2 files changed, 4 insertions, 1 deletions

diff --git a/ext/Storable/t/code.t b/ext/Storable/t/code.t
index c8b2ca1b5d..b66cae7116 100644
--- 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 25fd978064..05d92729dc 100644
--- 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';