Fix last remaining Win32 linker error following change 24271
Steve Hay [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;