summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2004-03-31 08:39:22 +0000
committerJim Meyering <jim@meyering.net>2004-03-31 08:39:22 +0000
commit99b004b46b4151c96bf966f435cec7dd8a8f2264 (patch)
treed94cba5f5ba0cacd74d6432053120ca37950ec4f
parent41bef30872153a97661dd8997fc81037500301d0 (diff)
downloadcoreutils-99b004b46b4151c96bf966f435cec7dd8a8f2264.tar.xz
(run_tests): Remove `.orig' file.
Remove debugging diagnostic.
-rw-r--r--tests/Fetish.pm8
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;