[exim-cvs] Testsuite: localize vars

Αρχική Σελίδα
Delete this message
Reply to this message
Συντάκτης: Exim Git Commits Mailing List
Ημερομηνία:  
Προς: exim-cvs
Αντικείμενο: [exim-cvs] Testsuite: localize vars
Gitweb: https://git.exim.org/exim.git/commitdiff/90d0db05230b351bc6252f2b64df2e8966e6a203
Commit:     90d0db05230b351bc6252f2b64df2e8966e6a203
Parent:     2dc4c388544fb06a476f6526a705e15984cf1aa5
Author:     Heiko Schlittermann (HS12-RIPE) <hs@???>
AuthorDate: Sun Nov 17 08:04:57 2019 +0800
Committer:  Heiko Schlittermann (HS12-RIPE) <hs@???>
CommitDate: Sun Nov 17 08:07:06 2019 +0800


    Testsuite: localize vars
---
 test/runtest | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


diff --git a/test/runtest b/test/runtest
index 4d9468d..d41e3c9 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] !~