Fix problems caused by downsizing in change 31017. (Which don't show

up until you test on a "real" architecture)

p4raw-id: //depot/perl@31023

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 861e8a5a15..0538d6f7cd 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2908,7 +2908,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     SAVESPTR(PL_unitcheckav);
     PL_unitcheckav = newAV();
     SAVEFREESV(PL_unitcheckav);
-    SAVEI32(PL_error_count);
+    SAVEI8(PL_error_count);
 
 #ifdef PERL_MAD
     SAVEBOOL(PL_madskills);