From 99b004b46b4151c96bf966f435cec7dd8a8f2264 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Wed, 31 Mar 2004 08:39:22 +0000
Subject: [PATCH] (run_tests): Remove `.orig' file. Remove debugging
 diagnostic.

---
 tests/Fetish.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index fd094f7..3938583 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;
-- 
2.7.4