git://git.exim.org
/
users
/
jgh
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Testsuite: localize vars
[users/jgh/exim.git]
/
test
/
runtest
diff --git
a/test/runtest
b/test/runtest
index 4d9468d90ad6d1ce958839c46dc4fac8a34ea819..d41e3c913c3ccbbc8bc86c1aaf7501fe5e491430 100755
(executable)
--- a/
test/runtest
+++ b/
test/runtest
@@
-1630,17
+1630,17
@@
if (-e $sf_current)
if ($sortfile)
{
if ($sortfile)
{
- my ($i, $j);
my @munged = do {
open(my $fh, '<', $mf) or tests_exit(-1, "Failed to open $mf: $!");
<$fh>;
};
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[-=*]>/)
{
{
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] !~
for ($j = $i + 1; $j < @munged; $j++)
{
last if $munged[$j] !~