lib/warnings.t: Skip an ASCII-centric test on EBCDIC

[perl5.git] / pp_pack.c

diff --git a/pp_pack.c b/pp_pack.c
index 044ea7f..f6964c3 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1826,7 +1826,7 @@ PP(pp_unpack)
 {
     dSP;
     dPOPPOPssrl;
-    I32 gimme = GIMME_V;
+    U8 gimme = GIMME_V;
     STRLEN llen;
     STRLEN rlen;
     const char *pat = SvPV_const(left,  llen);