Fixes bug in change 11717 that bus errored on HP-UX 10.20
Artur Bergman [Fri, 31 Aug 2001 17:30:26 +0000 (17:30 +0000)]
Might break on platforms where bool is larger than 8 bites ???

p4raw-id: //depot/perl@11800

regcomp.c

index 9877658..311670c 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4735,7 +4735,7 @@ Perl_save_re_context(pTHX)
     SAVEVPTR(PL_reg_re);               /* from regexec.c */
     SAVEPPTR(PL_reg_ganch);            /* from regexec.c */
     SAVESPTR(PL_reg_sv);               /* from regexec.c */
-    SAVEI32(PL_reg_sv_utf8);           /* from regexec.c */
+    SAVEI8(PL_reg_sv_utf8);            /* from regexec.c */
     SAVEVPTR(PL_reg_magic);            /* from regexec.c */
     SAVEI32(PL_reg_oldpos);                    /* from regexec.c */
     SAVEVPTR(PL_reg_oldcurpm);         /* from regexec.c */