Fixed error in script that John noticed when he tried it. The regular

	* check-strings.pl: Fixed error in script that John noticed
	when he tried it. The regular expression for matching
	function names was matching way too many.

2 files changed, 9 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 81f9dbd1f..8806d4e0e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2001-02-28  Darin Adler  <darin@eazel.com>
 
+	* check-strings.pl: Fixed error in script that John noticed
+	when he tried it. The regular expression for matching
+	function names was matching way too many.
+
+2001-02-28  Darin Adler  <darin@eazel.com>
+
 	* check-strings-functions:
 	* check-strings.pl: Tweaks to just-checked-in stuff.
 
diff --git a/check-strings.pl b/check-strings.pl
index 844c4e8c9..a8f5f0930 100755
--- a/check-strings.pl
+++ b/check-strings.pl
@@ -52,7 +52,7 @@ while (<FUNCTIONS>)
     push @no_translation_needed_functions, $_;
   }
 close FUNCTIONS;
-my $no_translation_needed_function_pattern = "^" . (join "|", @no_translation_needed_functions) . "\$";
+my $no_translation_needed_function_pattern = "^(" . (join "|", @no_translation_needed_functions) . ")\$";
 
 # read in file with patterns for which no translation is needed
 my @no_translation_needed_patterns;
@@ -143,11 +143,11 @@ FILE: foreach my $file (@ARGV)
               }
 	    elsif ($found eq ")")
 	      {
-                (print "$file:$.:mismatched paren 1\n"), next FILE if $paren_level == 0;
+                (print "$file:$.:mismatched paren (type 1)\n"), next FILE if $paren_level == 0;
                 $paren_level--;
                 if ($paren_level == 0)
                   {
-                    (print "$file:$.:mismatched paren 2\n"), next FILE if @stack == 0;
+                    (print "$file:$.:mismatched paren (type 2)\n"), next FILE if @stack == 0;
                     ($paren_level, $in_exception_function) = @{pop @stack};
                   }
 	      }