X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fzap_the_dir.pl;h=63da413e558f5e1411a3c69d49a03e097caa0fa1;hb=1ca24b12c472cb24a21ba3efc43824bc21af264a;hp=6d0b6212144237fd519559499836a82984aae3a3;hpb=e471e89ab16d0224ad0abf3f1c1bef39481aa254;p=feisty_meow.git diff --git a/scripts/files/zap_the_dir.pl b/scripts/files/zap_the_dir.pl index 6d0b6212..63da413e 100644 --- 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"; } } }