From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jul 2003 11:35:31 +0000 (+0000)
Subject: Storable test nosewipe.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9820b33a3d2b674b636ac4dd779ef1bbe90492de;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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';