summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-12-01 02:58:53 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-01 02:58:53 +0000
commit5fb7366ef2085d0e4f43361f99c3404a8ae1fe9c (patch)
treedee5e4bd520128bebc4232e3478bd7c053b132b4 /regcomp.c
parentfa301091a913890fbb1fa04962693e6daf2a2229 (diff)
downloadperl-5fb7366ef2085d0e4f43361f99c3404a8ae1fe9c.tar.gz
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
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 46a0bb6d2a..f09e49dd9a 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