Change 33295 by [EMAIL PROTECTED] on 2008/02/13 07:42:02

        Make sure we only find the macro we were looking for,
        not something that only starts with the same string.

Affected files ...

... //depot/perl/Porting/expand-macro.pl#2 edit

Differences ...

==== //depot/perl/Porting/expand-macro.pl#2 (text) ====
Index: perl/Porting/expand-macro.pl
--- perl/Porting/expand-macro.pl#1~32833~       2008-01-04 10:18:02.000000000 
-0800
+++ perl/Porting/expand-macro.pl        2008-02-12 23:42:02.000000000 -0800
@@ -24,7 +24,7 @@
 my $args = '';
 
 while (<>) {
-    next unless /^#\s*define\s+$macro/;
+    next unless /^#\s*define\s+$macro\b/;
     my ($def_args) = /^#\s*define\s+$macro\(([^)]*)\)/;
     if (defined $def_args) {
        my @args = split ',', $def_args;
End of Patch.

Reply via email to