From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 26 Jun 2002 15:25:45 +0000 (+0000)
Subject: Let's not leak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f83dd72f21792ca0fcbec90728c3cad57c66994;p=p5sagit%2Fp5-mst-13.2.git

Let's not leak.

p4raw-id: //depot/perl@17362
---

diff --git a/pp_hot.c b/pp_hot.c
index 526468d..7837f64 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1987,7 +1987,7 @@ PP(pp_subst)
 	doutf8 = DO_UTF8(dstr);
 	/* replacement needing upgrading? */
 	if (DO_UTF8(TARG) && !doutf8) {
-	     SV *nsv = newSVpvn(c, clen);
+	     SV *nsv = sv_2mortal(newSVpvn(c, clen));
 	     if (PL_encoding)
 		  sv_recode_to_utf8(nsv, PL_encoding);
 	     else