diff options
author | Jim Cromie <jim.cromie@gmail.com> | 2012-10-19 21:29:39 -0600 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-06 20:51:38 -0500 |
commit | 448bc2e91e255b2610f23d9fe8092c9143dac28e (patch) | |
tree | 38a344e9eb5f44205afc6fb5a923d3fd9caa098c /t/TEST | |
parent | da6e3e61d3d3194e7f769b7ddf7e6d16904c24d3 (diff) | |
download | perl-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-x | t/TEST | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) { |