debugging spacemall

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

diff --git a/scripts/files/renlower.pl b/scripts/files/renlower.pl
index f7e5b1d94b3ed604a8de5915e960bf96dd0bb1c0..ca42de7c3fb0889ec02b3aa3287a65fa4e709d16 100644 (file)
--- a/scripts/files/renlower.pl
+++ b/scripts/files/renlower.pl
@@ -20,7 +20,6 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
 
 # call the primary subroutine to rename the files specified.
 
@@ -34,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;
@@ -44,12 +44,16 @@ sub rename_lower {
       local $new_name = $dir . $lc_name; 
 #print "new name='$new_name'\n";
       local $intermediate_name = $dir . "RL" .  rand() . ".tmp";
+#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)
           || die "failed to do secondary rename";
+      print "'$old_name' => '$new_name'\n";
     }
   }
 }