- my $tmp_tapelist_file = "$AMANDA_TMPDIR/tapelist-amrmtape-" . time();
- my $backup_tapelist_file = "$AMANDA_TMPDIR/tapelist-backup-amrmtape-" . time();
- unless (copy($tapelist_file, $backup_tapelist_file)) {
- die "Failed to copy/backup $tapelist_file to $backup_tapelist_file";
+
+ #take a copy in case we roolback
+ my $backup_tapelist_file = dirname($tapelist_file) . "-backup-amrmtape-" . time();
+ if (-x $tapelist_file) {
+ unless (copy($tapelist_file, $backup_tapelist_file)) {
+ die "Failed to copy/backup $tapelist_file to $backup_tapelist_file";
+ }