This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix last remaining Win32 linker error following change 24271
authorSteve Hay <SteveHay@planit.com>
Fri, 22 Apr 2005 13:51:47 +0000 (13:51 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 22 Apr 2005 13:51:47 +0000 (13:51 +0000)
(Supplied by Jarkko in a makedef.pl that was omitted from the
aforementioned change)

p4raw-id: //depot/perl@24290

makedef.pl

index d14b503..107541c 100644 (file)
@@ -806,7 +806,7 @@ sub readvar {
     while (<VARS>) {
        # All symbols have a Perl_ prefix because that's what embed.h
        # sticks in front of them.
-       push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?C?)\(([IGT])(\w+)/);
+       push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/);
     }
     close(VARS);
     return \@syms;