about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xleo.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/leo.pl b/leo.pl
index 1493098..9f6482b 100755
--- a/leo.pl
+++ b/leo.pl
@@ -57,7 +57,10 @@ sub tar_create {
         @archive_paths = @_;
     }
 
-    say "Archive file: $tar_file\n";
+    say "Archive file: $tar_file";
+    warn "$tar_file exists, might overwrite.\n" if -e $tar_file;
+    print "\n";
+
     run3 ["/bin/tar", "cf", $tar_file, @_];
 
     $? # tar returns 1 on errors.