numerous minor changes to either use the sep function instead of old name of 'line...

[feisty_meow.git] / scripts / files / safedel.pl

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index c0d710829c096c783f534366c74c62fbbbb2af40..0fd25678045e95c10b5acef0852aec2bf64c578f 100644 (file)
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -91,6 +91,9 @@ sub safedel {
     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;
@@ -116,7 +119,7 @@ sub safedel {
       }
       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'");