From 9e77380c9f7a0bc0f3287ec1c41a36f890e68469 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sun, 28 Mar 2004 08:21:45 +0000 Subject: Correct the indentation of a foreach loop. --- tests/Fetish.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'tests') diff --git a/tests/Fetish.pm b/tests/Fetish.pm index 5d8c26257..93630ebaa 100644 --- 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}; -- cgit v1.2.3-54-g00ecf