diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 20:06:08 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 21:32:34 -0700 |
| commit | 4eedab498fc909c786cceea9a6f3a70fa4433f9b (patch) | |
| tree | fb6b39f16dd28ea5e169514fc8d9e20bc86234d3 /pp_hot.c | |
| parent | 8db9069ca0bb3b524c2f656356fc526984285a58 (diff) | |
| download | perl-4eedab498fc909c786cceea9a6f3a70fa4433f9b.tar.gz | |
s///r leaks like a sieve
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2120,7 +2120,7 @@ PP(pp_subst) /* In non-destructive replacement mode, duplicate target scalar so it * remains unchanged. */ if (rpm->op_pmflags & PMf_NONDESTRUCT) - TARG = newSVsv(TARG); + TARG = sv_2mortal(newSVsv(TARG)); #ifdef PERL_OLD_COPY_ON_WRITE /* Awooga. Awooga. "bool" types that are actually char are dangerous, |