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 6d0b6212144237fd519559499836a82984aae3a3..63da413e558f5e1411a3c69d49a03e097caa0fa1 100644 (file)
--- a/scripts/files/zap_the_dir.pl
+++ b/scripts/files/zap_the_dir.pl
@@ -42,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";
       }
     }
   }