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
[perl5.git] / 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;