diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-02-13 07:42:02 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-02-13 07:42:02 +0000 |
| commit | e25a7dc23f32d0dd4f1c4c8645877a39bdb9d4b7 (patch) | |
| tree | 96223e082b44fc2e79d8e92fd828f636fe386037 /Porting | |
| parent | 795ee8854b262cd1b42821306f6db81e63bd7b3d (diff) | |
| download | perl-e25a7dc23f32d0dd4f1c4c8645877a39bdb9d4b7.tar.gz | |
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
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/expand-macro.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl index 624e7dcdb4..caa4b472e1 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; |