Correct the indentation of a foreach loop.

This commit is contained in:
Jim Meyering 2004-03-28 08:21:45 +00:00
parent 40b31c6a65
commit 9e77380c9f

View File

@ -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};