if (substr($file, length($file) - 1, 1) eq ":") {
die "removing the root directory of a drive is not permitted!";
}
+
+#print "file to whack: '$file'\n";
+
if ( ($file =~ /^.*\/\.$/) || ($file =~ /^.*\/\.\.$/) ) {
print "ignoring attempt to remove current or parent directory.\n";
next;
}
push(@deleted, "\"$file\"");
} elsif (-f $file) {
-print "about to chmod file\n";
+#print "about to chmod file\n";
# make the file writable by our user if possible (which resets any
# prior permissions as long as we're the owner).
system("chmod u+rw '$file'");