From 2ff01bdb018a1a1bc9e5800314d70e06972192cc Mon Sep 17 00:00:00 2001
From: Reuben Thomas <rrt@sc3d.org>
Date: Thu, 6 Aug 2009 22:32:42 +0100
Subject: Fix case of macro in "OBSOLETE" section.

Make error messages more legible.
---
 rename-macro.pl | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'rename-macro.pl')

diff --git a/rename-macro.pl b/rename-macro.pl
index 4eadbe0..487857e 100755
--- a/rename-macro.pl
+++ b/rename-macro.pl
@@ -14,22 +14,25 @@ my ($old_prefix, $new_prefix, $old_file, $new_file) = @ARGV;
 # Extract names from file names
 my $old_name = $old_file;
 $old_name =~ s/\..*$//;
+my $uc_old_name = uc($old_name);
+$old_name = lc($old_name);
 my $new_name = $new_file;
 $new_name =~ s/\..*$//;
+my $uc_new_name = uc($new_name);
+$new_name = lc($new_name);
 
 # Read file
-open IN, $old_file or die "could not read $old_file\n";
+open IN, $old_file or die "could not read `$old_file'\n";
 my $text = do { local $/, <IN> };
 
 # Make new macro
 my $new_text = $text;
 $new_text =~ s/$old_name/$new_name/g; # Change name (lower case)
-my $uc_old_name = uc($old_name);
 $new_text =~ s/$uc_old_name/uc($new_name)/ge; # Change name (upper case)
 $new_text =~ s/$old_prefix/$new_prefix/g; # Change other references to prefix (upper case)
 my $lc_old_prefix = lc($old_prefix);
 $new_text =~ s/$lc_old_prefix/lc($new_prefix)/ge; # Change other references to prefix (lower case)
-open OUTFILE, ">$new_file" or die "could not read $new_file";
+open OUTFILE, ">$new_file" or die "could not read `$new_file'";
 print OUTFILE $new_text;
 system "git add $new_file";
 
@@ -37,11 +40,11 @@ system "git add $new_file";
 my $insertion = <<END;
 # OBSOLETE MACRO
 #
-#   Renamed to $new_name
+#   Renamed to $uc_new_name
 #
 END
 chomp $insertion;
 my $old_text = $text;
 $old_text =~ s/^\# SYNOPSIS/"$insertion\n\# SYNOPSIS"/me;
-open OUTFILE, ">$old_file" or die "could not write $old_file";
+open OUTFILE, ">$old_file" or die "could not write `$old_file'";
 print OUTFILE $old_text;
-- 
cgit v1.2.1