better printing in safedel for the deleted file list, added 'line' alias for printing...

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

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 14aca01473b815bedeb206710ac2b1e6bf784247..3892cb64e302cfcd01051a9697db7284351a19d1 100644 (file)
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -115,14 +115,14 @@ sub safedel {
         # remove the directory itself if possible, since zip did not.
         &recursively_zap_dirs($file);
       }
-      push(@deleted, "$file");
+      push(@deleted, "\"$file\"");
     } elsif (-f $file) {
       # store the file in the trash storage.
       system("chmod u+rw \"$file\"");
 
 #print "about to run: system [$zip -m$use_path $tempfile '$file' $DEV_NULL]";
       system("$zip -m$use_path $tempfile \"$file\" $DEV_NULL");
-      push(@deleted, "$file");
+      push(@deleted, "\"$file\"");
     } else {
       print "$0 cannot find \"$file\" to delete it.\n";
     }