###############################################################################
require "filename_helper.pl";
-require "importenv.pl";
############################################################################
$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";
}
}
}