From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 25 Jan 2008 08:23:32 +0000 (+0000)
Subject: Silence "possible data loss" warning.
X-Git-Tag: accepted/trunk/20130322.191538~13629
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3bf7733be4441d517a5d743fcbf21dd0ad133d67;p=platform%2Fupstream%2Fperl.git

Silence "possible data loss" warning.

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 20df134..67f450c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1835,7 +1835,7 @@ PP(pp_enteriter)
     register PERL_CONTEXT *cx;
     const I32 gimme = GIMME_V;
     SV **svp;
-    U16 cxtype = 0;
+    U8 cxtype = 0;
 #ifdef USE_ITHREADS
     void *iterdata;
 #endif