projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tasty renamings
[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 "filename_helper.pl";
-require "importenv.pl";
############################################################################
############################################################################
@@
-43,9
+42,11
@@
sub remove_whackables {
$fname = $from_dir . '/' . $fname;
#print "whacking: $fname.\n";
unlink $fname;
$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);
&recursive_delete($fname);
+ } else {
+ print "skipping item rather than deleting: $fname\n";
}
}
}
}
}
}