diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-29 01:53:09 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-05 20:07:33 +0000 |
| commit | 4b3c1a47dc0fd4f1dba8913d1d8984fe79997756 (patch) | |
| tree | d9997bad58e169c9c44a18aa34a1eb1bd6a214c0 /regexec.c | |
| parent | 048912995c485d977c9d43b63b517de870c722d5 (diff) | |
| download | perl-4b3c1a47dc0fd4f1dba8913d1d8984fe79997756.tar.gz | |
[patch] Re: [perl #21728] regexp SEGV
Message-ID: <20030328215309.GA6413@ratsnest.hole>
(with minor tweaks)
p4raw-id: //depot/perl@19431
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -172,7 +172,7 @@ S_regcppush(pTHX_ I32 parenfloor) Perl_croak(aTHX_ "panic: paren_elems_to_push < 0"); #define REGCP_OTHER_ELEMS 6 - SSCHECK(paren_elems_to_push + REGCP_OTHER_ELEMS); + SSGROW(paren_elems_to_push + REGCP_OTHER_ELEMS); for (p = PL_regsize; p > parenfloor; p--) { /* REGCP_PARENS_ELEMS are pushed per pairs of parentheses. */ SSPUSHINT(PL_regendp[p]); |