Make sure we only find the macro we were looking for,

not something that only starts with the same string.

p4raw-id: //depot/perl@33295

diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl
index 624e7dc..caa4b47 100644 (file)
--- a/Porting/expand-macro.pl
+++ b/Porting/expand-macro.pl
@@ -24,7 +24,7 @@ if (!@ARGV) {
 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;