diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-08-07 21:09:03 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-11 11:38:46 +0200 |
| commit | 115ff745268490ae5fb5ecaee00be54172e302e0 (patch) | |
| tree | 18788de5ba03a4598d0cdd3b776e2dd257df050f /makedef.pl | |
| parent | e469e61f2b416389b7fb67acaf0d21735066e6ee (diff) | |
| download | perl-115ff745268490ae5fb5ecaee00be54172e302e0.tar.gz | |
Simplify embedvar.h, removing a level of macro indirection for PL_* variables.
For the default (non-multiplicity) configuration, PERLVAR*() macros now
directly expand their arguments to tokens such as C<PL_defgv>, instead of
expanding to C<PL_Idefgv>. This removes over 350 lines from F<embedvar.h>,
which defined macros to map from C<PL_Idefgv> to C<PL_defgv> and so forth.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 6a31582e5a..5841d69f19 100644 --- a/makedef.pl +++ b/makedef.pl @@ -177,7 +177,7 @@ sub readvar { while (<$vars>) { # All symbols have a Perl_ prefix because that's what embed.h sticks # in front of them. The A?I?S?C? is strictly speaking wrong. - next unless /\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/; + next unless /\bPERLVAR(A?I?S?C?)\(([IGT]),\s*(\w+)/; my $var = "PL_$3"; my $symbol = $proc ? &$proc($1,$2,$3) : $var; |