From 034816d57d558537cfe1f38e4518df4895548881 Mon Sep 17 00:00:00 2001
From: Chris Koeritz <fred@gruntose.com>
Date: Sat, 4 Nov 2017 16:34:13 -0400
Subject: [PATCH] stopped printing debug noise

---
 scripts/files/safedel.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 0fd25678..b34e852f 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);
+use Env qw(TMP OS SHELL_DEBUG);
 
 #hmmm: need a usage statement.
 
@@ -132,7 +132,9 @@ sub safedel {
     }
   }
   if (@deleted) {
-    print "Trashed [@deleted].\n";
+    if ($SHELL_DEBUG != "") {
+      print "Trashed [@deleted].\n";
+    }
     open(REPORT, ">>$TMP/zz_safedel_report.txt");
 
     local($printable_date) = scalar(localtime());
-- 
2.34.1