$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";
}
}
}