From 99255fa2b366d63d69d80ad9de856f21a02937ff Mon Sep 17 00:00:00 2001 From: "zach%zachlipton.com" <> Date: Sat, 6 Oct 2001 08:23:38 +0000 Subject: Get rid of our which causes errors on 5.005. No review needed for tests at this time. NOT PART OF BUILD --- t/001compile.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 't/001compile.t') diff --git a/t/001compile.t b/t/001compile.t index 8886d685b..fa8bbae06 100644 --- a/t/001compile.t +++ b/t/001compile.t @@ -40,10 +40,14 @@ BEGIN { use Support::Files; } BEGIN { $tests = @Support::Files::testitems + 4; } BEGIN { use Test::More tests => $tests; } +sub foo { +$warnings = "foo"; #oy! +} + # First now we test the scripts @testitems = @Support::Files::testitems; -our $warnings; +my $warnings; my $verbose = $::ENV{VERBOSE}; $perlapp=$^X; foreach $file (@testitems) { -- cgit v1.2.3-24-g4f1b