summaryrefslogtreecommitdiff
path: root/t/TEST
diff options
context:
space:
mode:
authorJim Cromie <jim.cromie@gmail.com>2012-10-19 21:29:39 -0600
committerJarkko Hietaniemi <jhi@iki.fi>2014-11-06 20:51:38 -0500
commit448bc2e91e255b2610f23d9fe8092c9143dac28e (patch)
tree38a344e9eb5f44205afc6fb5a923d3fd9caa098c /t/TEST
parentda6e3e61d3d3194e7f769b7ddf7e6d16904c24d3 (diff)
downloadperl-448bc2e91e255b2610f23d9fe8092c9143dac28e.tar.gz
t/TEST: move our @found out to its real scope
commit c96083ea8213 added our @found inside sub _find_tests, but testing with strict exposes probs: $ perl -cw -Ilib -Mstrict t/TEST Variable "@found" is not imported at t/TEST line 198. Variable "@found" is not imported at t/TEST line 202. Global symbol "@found" requires explicit package name at t/TEST line 198. Global symbol "@found" requires explicit package name at t/TEST line 202. No point in arguing, hoist decl out to file scope.
Diffstat (limited to 't/TEST')
-rwxr-xr-xt/TEST3
1 files changed, 2 insertions, 1 deletions
diff --git a/t/TEST b/t/TEST
index 15d59b7194..8026c535db 100755
--- a/t/TEST
+++ b/t/TEST
@@ -163,7 +163,8 @@ if ($show_elapsed_time) { require Time::HiRes }
my %timings = (); # testname => [@et] pairs if $show_elapsed_time.
# Roll your own File::Find!
-sub _find_tests { our @found=(); push @ARGV, _find_files('\.t$', $_[0]) }
+our @found;
+sub _find_tests { @found = (); push @ARGV, _find_files('\.t$', $_[0]) }
sub _find_files {
my($patt, @dirs) = @_;
for my $dir (@dirs) {