From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Dec 2000 02:58:53 +0000 (+0000)
Subject: Fix for 20001130.008 and 20001130.010, the PL_regnpar wasn't
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fb7366ef2085d0e4f43361f99c3404a8ae1fe9c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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