summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2006-05-20 14:30:50 +0000
committerDave Mitchell <davem@fdisolutions.com>2006-05-20 14:30:50 +0000
commitcff085c1df60b77b6a2dbefd408f54bb564b8353 (patch)
tree9345f9af8d25a2bc0ad16284d406dd7f0246c421 /pp_ctl.c
parenta0a8d9d340b642dc325a8f62c6d29670624a4f55 (diff)
downloadperl-cff085c1df60b77b6a2dbefd408f54bb564b8353.tar.gz
eval { s/$foo/die/e } leaked a scalar
p4raw-id: //depot/perl@28254
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 21b96f76b7..1cdf5928a7 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -245,7 +245,6 @@ PP(pp_substcont)
if (DO_UTF8(dstr))
SvUTF8_on(targ);
SvPV_set(dstr, NULL);
- sv_free(dstr);
TAINT_IF(cx->sb_rxtainted & 1);
PUSHs(sv_2mortal(newSViv(saviters - 1)));