diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2001-05-25 19:25:36 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-25 01:07:59 +0000 |
| commit | e49a9654d37283a906bdcb779ea9c6e236835955 (patch) | |
| tree | 638af82c804f6aac6244663964bbe826602469ca /regexec.c | |
| parent | af09ea45cb052770572c0a2caa4e487853f703c8 (diff) | |
| download | perl-e49a9654d37283a906bdcb779ea9c6e236835955.tar.gz | |
Re: [ID 20010506.041] segfault when matching utf8 string
Message-Id: <200105250124.KAA19571@toshiba.co.jp>
p4raw-id: //depot/perl@10206
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -144,6 +144,9 @@ S_regcppush(pTHX_ I32 parenfloor) int paren_elems_to_push = (PL_regsize - parenfloor) * REGCP_PAREN_ELEMS; int p; + if (paren_elems_to_push < 0) + Perl_croak(aTHX_ "panic: paren_elems_to_push < 0"); + #define REGCP_OTHER_ELEMS 5 SSCHECK(paren_elems_to_push + REGCP_OTHER_ELEMS); for (p = PL_regsize; p > parenfloor; p--) { |