Correct the indentation of a foreach loop.

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 5d8c26257a80c5740e06898ece5288942952bfee..93630ebaa5a39da2917bb911ea520e660fca6af1 100644 (file)
--- a/tests/Fetish.pm
+++ b/tests/Fetish.pm
@@ -12,7 +12,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.13 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.14 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -389,12 +389,12 @@ sub run_tests ($$$$$)
            and $fail = 1;
        }
 
-    foreach my $pair (@post_compare)
-      {
-       my ($a, $b) = @$pair;
-       _compare_files $program_name, $test_name, undef, $a, $b
-         and $fail = 1;
-      }
+      foreach my $pair (@post_compare)
+       {
+         my ($a, $b) = @$pair;
+         _compare_files $program_name, $test_name, undef, $a, $b
+           and $fail = 1;
+       }
 
     cleanup:
       &{$expect->{POST}} if $expect->{POST};