From: Artur Bergman <sky@nanisky.com>
Date: Fri, 31 Aug 2001 17:30:26 +0000 (+0000)
Subject: Fixes bug in change 11717 that bus errored on HP-UX 10.20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e072df014fdece72bd24fb4d17e9a5b4a1d326b;p=p5sagit%2Fp5-mst-13.2.git

Fixes bug in change 11717 that bus errored on HP-UX 10.20
Might break on platforms where bool is larger than 8 bites ???

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

diff --git a/regcomp.c b/regcomp.c
index 9877658..311670c 100644
--- 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 */