[Fai-commit] r4167 - trunk/bin

[Thomas Lange]

Author: lange
Date: 2006-11-26 15:59:12 +0100 (Sun, 26 Nov 2006)
New Revision: 4167

Modified:
   trunk/bin/fcopy
Log:
tmpfile is not always removed


Modified: trunk/bin/fcopy
===================================================================
--- trunk/bin/fcopy	2006-11-23 21:16:49 UTC (rev 4166)
+++ trunk/bin/fcopy	2006-11-26 14:59:12 UTC (rev 4167)
@@ -27,7 +27,7 @@
 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #*********************************************************************
 
-my $version = "Version 2.2.9, 3-november-2006";
+my $version = "Version 2.2.10, 26-november-2006";
 
 use strict;
 use File::Copy;
@@ -162,12 +162,14 @@
   print LOGFILE "$source\t$class$logcomment\n" if $logfile;
   if ($preserve) {
     warn "preserving $source \n";
+    _unlink($tmpfile) unless ($tmpfile eq $sourcefile);
     return;
   }
 
   # if destination is a symlink and -l is given, complain about it
   if ($opt_l && -l $destfile) {
     ewarn("Destination $destfile is a symlink");
+    _unlink($tmpfile) unless ($tmpfile eq $sourcefile);
     return;
   }