X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fsafedel.pl;h=010cd959d83976bb61263867142a85e291135605;hb=28e22792f4a695334fd5cc80b5a7a2774cec9432;hp=b34e852feb770f226f41c1f5ce55bf0f776b3477;hpb=034816d57d558537cfe1f38e4518df4895548881;p=feisty_meow.git

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index b34e852f..010cd959 100644
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -24,7 +24,7 @@ require "filename_helper.pl";
 require "inc_num.pl";
 require "zap_the_dir.pl";
 
-use Env qw(TMP OS SHELL_DEBUG);
+use Env qw(TMP OS DEBUG_FEISTY_MEOW);
 
 #hmmm: need a usage statement.
 
@@ -63,7 +63,7 @@ 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";
+print "list of whackees: @to_delete\n";
 
   # we store the deleted files in a directory under the temporary directory.
   if (! -d $TMP) { 
@@ -132,7 +132,7 @@ sub safedel {
     }
   }
   if (@deleted) {
-    if ($SHELL_DEBUG != "") {
+    if ($DEBUG_FEISTY_MEOW != "") {
       print "Trashed [@deleted].\n";
     }
     open(REPORT, ">>$TMP/zz_safedel_report.txt");