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 /scope.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 'scope.c')
| -rw-r--r-- | scope.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -155,6 +155,13 @@ Perl_savestack_grow(pTHX) Renew(PL_savestack, PL_savestack_max, ANY); } +void +Perl_savestack_grow_cnt(pTHX_ I32 need) +{ + PL_savestack_max = PL_savestack_ix + need; + Renew(PL_savestack, PL_savestack_max, ANY); +} + #undef GROW void @@ -277,7 +284,7 @@ Perl_save_shared_pvref(pTHX_ char **str) void Perl_save_gp(pTHX_ GV *gv, I32 empty) { - SSCHECK(6); + SSGROW(6); SSPUSHIV((IV)SvLEN(gv)); SvLEN(gv) = 0; /* forget that anything was allocated here */ SSPUSHIV((IV)SvCUR(gv)); |