Simplify embedvar.h, removing a level of macro indirection for PL_* variables.

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 6a31582..5841d69 100644 (file)
--- 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;