X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;ds=inline;f=scripts%2Ffiles%2Frenlower.pl;h=1fe9fa1ff27490ac9851b305cc25cc3ec4ccaa4f;hb=ea31dec826a360f97729000c351ea7e3e7aa9877;hp=7f9f3409f4a1ad4e4c33069be3a2b3aea12eed5b;hpb=78d8d62332226c326575de341f613a29f3a98151;p=feisty_meow.git

diff --git a/scripts/files/renlower.pl b/scripts/files/renlower.pl
index 7f9f3409..1fe9fa1f 100644
--- a/scripts/files/renlower.pl
+++ b/scripts/files/renlower.pl
@@ -33,6 +33,7 @@ exit 0;
 sub rename_lower {
   # go through the list of files passed in.
   foreach $current (&glob_list(@_)) {
+#print "unfiltered: '$current'\n";
     if ($current =~ /[A-Z]/) {
 #print "current is '$current'\n";
       local $old_name = $current;
@@ -43,8 +44,10 @@ sub rename_lower {
       local $new_name = $dir . $lc_name; 
 #print "new name='$new_name'\n";
       local $intermediate_name = $dir . "RL" .  rand() . ".tmp";
-#print "command A is: rename [$old_name] [$intermediate_name]\n";
-#print "command B is: rename [$intermediate_name] [$new_name]\n";
+#print "\n";
+print "command A is: rename [$old_name] [$intermediate_name]\n";
+print "command B is: rename [$intermediate_name] [$new_name]\n";
+print "\n";
       rename($old_name, $intermediate_name)
           || die "failed to do initial rename";
       rename($intermediate_name, $new_name)