1 files changed, 1 insertions, 0 deletions
diff --git a/lib/File/BackupCopy.pm b/lib/File/BackupCopy.pm
index b762e03..226e8ce 100644
--- a/lib/File/BackupCopy.pm
+++ b/lib/File/BackupCopy.pm
@@ -154,12 +154,13 @@ sub backup_copy_internal {
 	++$num;
     }
     
     unless (rename($fh->filename, $backup_name)) {
 	return _backup_copy_error("can't rename temporary file to $backup_name: $!");
     }
+    $fh->unlink_on_destroy(0);
     return $backup_name;
 }
 
 sub backup_copy_numbered {
     my ($file_name, %opts) = @_;
     $opts{if_exists} = 0;