[Fai-commit] r4114 - trunk/bin

[fai-commit at lists.alioth.debian.org]

Author: lange
Date: 2006-10-29 14:52:04 +0100 (Sun, 29 Oct 2006)
New Revision: 4114

Modified:
   trunk/bin/fcopy
Log:
remove temporary file after use


Modified: trunk/bin/fcopy
===================================================================
--- trunk/bin/fcopy	2006-10-26 19:13:12 UTC (rev 4113)
+++ trunk/bin/fcopy	2006-10-29 13:52:04 UTC (rev 4114)
@@ -27,7 +27,7 @@
 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #*********************************************************************
 
-my $version = "Version 2.2.7, 10-october-2006";
+my $version = "Version 2.2.8, 29-october-2006";
 
 use strict;
 use File::Copy;
@@ -185,6 +185,7 @@
   } else {
     ewarn("copy $sourcefile to $destfile failed. $!") ;
   }
+  _unlink($tmpfile) unless ($tmpfile eq $sourcefile);
 }
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 sub _mkpath {