diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-01-26 06:55:48 +0200 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-01-26 02:50:44 +0000 |
| commit | a732c88957a4ca9f9d2b586ea3b6b8e9b04f8ace (patch) | |
| tree | 48fb4113e3af84db75c5a24f6dcdbf1882fce4c7 /pp_ctl.c | |
| parent | 69495e6aae8fbe200ffe8bf879f7802849dcbe79 (diff) | |
| download | perl-a732c88957a4ca9f9d2b586ea3b6b8e9b04f8ace.tar.gz | |
Re: [perl #20408] SV's SvPVX get freed even when its SvLEN is zero
Message-Id: <20030126025548.GB812@ratsnest.hole>
p4raw-id: //depot/perl@18579
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -182,7 +182,8 @@ PP(pp_substcont) cx->sb_rxtainted |= RX_MATCH_TAINTED(rx); (void)SvOOK_off(targ); - Safefree(SvPVX(targ)); + if (SvLEN(targ)) + Safefree(SvPVX(targ)); SvPVX(targ) = SvPVX(dstr); SvCUR_set(targ, SvCUR(dstr)); SvLEN_set(targ, SvLEN(dstr)); |