Fix for 20001130.008 and 20001130.010, the PL_regnpar wasn't

stored and restored, and thusly was trounced by the utf8 swash
routines.

p4raw-id: //depot/perl@7937

diff --git a/regcomp.c b/regcomp.c
index 46a0bb6..f09e49d 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4610,6 +4610,7 @@ Perl_save_re_context(pTHX)
     SAVEI32(PL_reg_oldpos);                    /* from regexec.c */
     SAVEVPTR(PL_reg_oldcurpm);         /* from regexec.c */
     SAVEVPTR(PL_reg_curpm);            /* from regexec.c */
+    SAVEI32(PL_regnpar);               /* () count. */
 #ifdef DEBUGGING
     SAVEPPTR(PL_reg_starttry);         /* from regexec.c */    
 #endif