diff options
-rw-r--r-- | t/001compile.t | 6 |
1 files changed, 5 insertions, 1 deletions
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) { |