diff options
Diffstat (limited to 't/002goodperl.t')
-rw-r--r-- | t/002goodperl.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t index 09a5f0324..d3beec5ef 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -38,13 +38,14 @@ #Bugzilla Test 2# ####GoodPerl##### -BEGIN { use lib 't/'; } -BEGIN { use Support::Files; } -BEGIN { $tests = @Support::Files::testitems * 2; } -BEGIN { use Test::More tests => $tests; } - use strict; +use lib 't'; + +use Support::Files; + +use Test::More tests => (scalar(@Support::Files::testitems) * 2); + my @testitems = @Support::Files::testitems; # get the files to test. foreach my $file (@testitems) { |