From: Steve Hay <SteveHay@planit.com>
Date: Fri, 22 Apr 2005 13:51:47 +0000 (+0000)
Subject: Fix last remaining Win32 linker error following change 24271
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=313fe30010dfe393b83ab19118451c0eb11e1638;p=p5sagit%2Fp5-mst-13.2.git

Fix last remaining Win32 linker error following change 24271

(Supplied by Jarkko in a makedef.pl that was omitted from the
aforementioned change)

p4raw-id: //depot/perl@24290
---

diff --git a/makedef.pl b/makedef.pl
index d14b503..107541c 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -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;