Testsuite: localize vars
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Sun, 17 Nov 2019 00:04:57 +0000 (08:04 +0800)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Sun, 17 Nov 2019 00:07:06 +0000 (08:07 +0800)
test/runtest

index 4d9468d90ad6d1ce958839c46dc4fac8a34ea819..d41e3c913c3ccbbc8bc86c1aaf7501fe5e491430 100755 (executable)
@@ -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] !~