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.

1 files changed, 3 insertions, 3 deletions

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};
                   }
 	      }