X-Git-Url: https://feistymeow.org/gitweb/?p=feisty_meow.git;a=blobdiff_plain;f=scripts%2Ffiles%2Fsafedel.pl;fp=scripts%2Ffiles%2Fsafedel.pl;h=6b8ed29a3419cddab46db8dec93e8b58102cfceb;hp=ef4ffcb4aa4fb662f6d3e42aa4a7a9a1ed272a98;hb=de0da7f2f7958d4ba652ff2ef5c79991700141ac;hpb=a4c99c6006b3aa20b5f65f02c2d30db7e790083a

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index ef4ffcb4..6b8ed29a 100644
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -63,7 +63,8 @@ exit 0;
 sub safedel {
   # get the list of files and directories to whack.
   local(@to_delete) = &glob_list(@_);
-#  print "final list of whackees: @to_delete\n";
+#hmmm: make this into a debug option. 
+#print "list of whackees: @to_delete\n";
 
   # we store the deleted files in a directory under the temporary directory.
   if (! -d $TMP) { 
@@ -147,7 +148,11 @@ sub safedel {
     print REPORT $printable_date . " -- from [@deleted]\n";
     close(REPORT);
   } else {
-    print "No files were deleted.\n";
+#hmmm: oh good, and we should always bug people about nothing having been done?
+#      this is especially tiresome when our own scripts cause safedel to be invoked,
+#      since then they are automatically noisy and blathery.
+#hmmm: make this into a debug option. 
+#    print "No files were deleted.\n";
   }
 }