diff options
author | Jim Meyering <jim@meyering.net> | 2004-03-31 08:39:22 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2004-03-31 08:39:22 +0000 |
commit | 99b004b46b4151c96bf966f435cec7dd8a8f2264 (patch) | |
tree | d94cba5f5ba0cacd74d6432053120ca37950ec4f /tests/Fetish.pm | |
parent | 41bef30872153a97661dd8997fc81037500301d0 (diff) | |
download | coreutils-99b004b46b4151c96bf966f435cec7dd8a8f2264.tar.xz |
(run_tests): Remove `.orig' file.
Remove debugging diagnostic.
Diffstat (limited to 'tests/Fetish.pm')
-rw-r--r-- | tests/Fetish.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm index fd094f7c5..393858336 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.15 $ ') =~ tr/[0-9].//cd; +($VERSION = '$Revision: 1.16 $ ') =~ tr/[0-9].//cd; @EXPORT = qw (run_tests); my $debug = $ENV{DEBUG}; @@ -407,7 +407,6 @@ sub run_tests ($$$$$) my $out = $actual{$eo}; my $orig = "$out.orig"; - warn "rename $out, $orig"; # Move $out aside (to $orig), then then recreate $out # by transforming each line of $orig via $subst_expr. rename $out, $orig @@ -415,7 +414,10 @@ sub run_tests ($$$$$) $fail = 1, next; open IN, $orig or (warn "$program_name: cannot open $orig for reading: $!\n"), - $fail = 1, next; + $fail = 1, (unlink $orig), next; + unlink $orig + or (warn "$program_name: cannot unlink $orig: $!\n"), + $fail = 1; open OUT, ">$out" or (warn "$program_name: cannot open $out for writing: $!\n"), $fail = 1, next; |