diff options
| -rwxr-xr-x | test/runtest | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/runtest b/test/runtest index 4d9468d90..d41e3c913 100755 --- a/test/runtest +++ b/test/runtest @@ -1630,17 +1630,17 @@ if (-e $sf_current) if ($sortfile) { - my ($i, $j); my @munged = do { open(my $fh, '<', $mf) or tests_exit(-1, "Failed to open $mf: $!"); <$fh>; }; - for ($i = 0; $i < @munged; $i++) + for (my $i = 0; $i < @munged; $i++) { if ($munged[$i] =~ /^[-\d]{10}\s[:\d]{8}\s[-A-Za-z\d]{16}\s[-=*]>/) { + my $j; for ($j = $i + 1; $j < @munged; $j++) { last if $munged[$j] !~ |