From: Steve Hay <SteveHay@planit.com>
Date: Wed, 6 Sep 2006 16:54:19 +0000 (+0000)
Subject: cxtype is a U16, not a U32 (Stops VC++ complaining)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df43650bac48846555252ca61d5394988cdf564f;p=p5sagit%2Fp5-mst-13.2.git

cxtype is a U16, not a U32 (Stops VC++ complaining)

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 4a1c634..832f189 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1808,7 +1808,7 @@ PP(pp_enteriter)
     register PERL_CONTEXT *cx;
     const I32 gimme = GIMME_V;
     SV **svp;
-    U32 cxtype = CXt_LOOP | CXp_FOREACH;
+    U16 cxtype = CXt_LOOP | CXp_FOREACH;
 #ifdef USE_ITHREADS
     void *iterdata;
 #endif