diff options
Diffstat (limited to 'lib/File/BackupCopy.pm')
-rw-r--r-- | lib/File/BackupCopy.pm | 1 |
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; |