diff options
author | Jim Meyering <jim@meyering.net> | 2004-03-28 08:21:45 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2004-03-28 08:21:45 +0000 |
commit | 9e77380c9f7a0bc0f3287ec1c41a36f890e68469 (patch) | |
tree | 05d7e07fccfbb21a17299faa4fed5e20b9bec6f4 /tests/Fetish.pm | |
parent | 40b31c6a655a30c5d522cf0d8cf694bed6e070b5 (diff) | |
download | coreutils-9e77380c9f7a0bc0f3287ec1c41a36f890e68469.tar.xz |
Correct the indentation of a foreach loop.
Diffstat (limited to 'tests/Fetish.pm')
-rw-r--r-- | tests/Fetish.pm | 14 |
1 files changed, 7 insertions, 7 deletions
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}; |