X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fzap_the_dir.pl;h=049838509250fbbe4dd1bc94cf53162a5220209b;hb=c5b50cbfbbd4c4dcbd2d52ad78fa91febb70d9e5;hp=230bda43b7c448e560d8a42bdbab0a2173c73aae;hpb=2952ccf47b80174880141a7ecfa122089f349b8d;p=feisty_meow.git

diff --git a/scripts/files/zap_the_dir.pl b/scripts/files/zap_the_dir.pl
index 230bda43..04983850 100644
--- 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 "not touching unimportant dir right now: $fname\n";
       }
     }
   }