nice new tool to show version of feisty meow

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

diff --git a/scripts/files/zap_the_dir.pl b/scripts/files/zap_the_dir.pl
index 230bda43b7c448e560d8a42bdbab0a2173c73aae..63da413e558f5e1411a3c69d49a03e097caa0fa1 100644 (file)
--- a/scripts/files/zap_the_dir.pl
+++ b/scripts/files/zap_the_dir.pl
@@ -21,7 +21,6 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
 
 ############################################################################
 
@@ -43,9 +42,11 @@ sub remove_whackables {
       $fname = $from_dir . '/' . $fname;
 #print "whacking: $fname.\n";
       unlink $fname;
-      if (-d "$fname") {
-        print "recursively deleting directory: $fname\n";
+      if (-f "$fname") {
+        print "cleaning file: $fname\n";
         &recursive_delete($fname);
+      } else {
+        print "skipping item rather than deleting: $fname\n";
       }
     }
   }