Silence "possible data loss" warning.

p4raw-id: //depot/perl@33067

diff --git a/pp_ctl.c b/pp_ctl.c
index 20df134..67f450c 100644 (file)
--- 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