Commit 83d762b8b5 for perl
commit 83d762b8b5eba735e89503d88b1e61c9ff66dfa2
Author: James E Keenan <jamesekeenan@yahoo.com>
Date: Thu Oct 8 19:43:31 2026 -0400
Move declaration of variable closer to where used
diff --git a/t/harness b/t/harness
index e7df4fd639..0cde318d7f 100644
--- a/t/harness
+++ b/t/harness
@@ -88,7 +88,7 @@ if ($ARGV[0] && $ARGV[0] =~ /^-?-torture$/) {
# which live dual lives on CPAN.
$ENV{PERL_CORE} = 1;
-my (@tests, @re, @anti_re);
+my (@re, @anti_re);
# [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
@ARGV = grep $_ && length( $_ ) => @ARGV;
@@ -313,6 +313,7 @@ sub sort_by_execution_order {
return $total_time{$b} <=> $total_time{$a} || lc $a cmp lc $b;
}
+my @tests = ();
if (@ARGV) {
# If you want these run in speed order, just use prove