tasty changes leading to a new alias called spacem that combines renlower and replace...

[feisty_meow.git] / scripts / files / safedel.pl

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index e9de40461035bbfad2eb6c6e6dd2f48a81a14cfc..60408046ebbc636138e838e037ce4e70bf404040 100644 (file)
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -89,7 +89,6 @@ sub safedel {
 
   # reset the list of objects actually whacked.
   local(@deleted) = ();
-#  print "deleted list is @deleted\n";
 
   # iterate over the files that we have been told to nuke.
   foreach $file (@to_delete) {
@@ -107,7 +106,7 @@ sub safedel {
     $date_tool = "date";
     local($datestamp) = `$date_tool +%Y-%m-%d-%H%M`;
     while ($datestamp =~ /[\r\n]$/) { chop $datestamp; }
-    $archive_file = $temp_subdir . "/deleted-#$number-" . $datestamp;
+    $archive_file = $temp_subdir . "/del-$number-" . $datestamp;
 #print "archive_file is $archive_file; file is $file.\n";
 
     if (-d $file) {