From a732c88957a4ca9f9d2b586ea3b6b8e9b04f8ace Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Sun, 26 Jan 2003 06:55:48 +0200 Subject: [PATCH] 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 --- pp_ctl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pp_ctl.c b/pp_ctl.c index ed392cc..1a3fd1d 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -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)); -- 1.8.3.1