From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 13 Feb 2008 07:42:02 +0000 (+0000)
Subject: Make sure we only find the macro we were looking for,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e25a7dc23f32d0dd4f1c4c8645877a39bdb9d4b7;p=p5sagit%2Fp5-mst-13.2.git

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