diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 15:25:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 15:25:45 +0000 |
| commit | 3f83dd72f21792ca0fcbec90728c3cad57c66994 (patch) | |
| tree | 315df262f264557fcbaee5bd83df50ce96bc90f2 /pp_hot.c | |
| parent | c4e0013e5d57314c227d8a847d01c4435bd8ad14 (diff) | |
| download | perl-3f83dd72f21792ca0fcbec90728c3cad57c66994.tar.gz | |
Let's not leak.
p4raw-id: //depot/perl@17362
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |