diff options
| author | Vincent Pit <perl@profvince.com> | 2008-01-03 20:26:05 +0100 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-01-04 01:22:22 +0000 |
| commit | 22f1178fc6ea7d78b2fce6108796ec629a70476b (patch) | |
| tree | db1b5b4ee2350f41eef0952ef108e64f43f5641b /ext/B | |
| parent | 6e449a3ab1e3bd9d7e138ca681c733e57d4daa49 (diff) | |
| download | perl-22f1178fc6ea7d78b2fce6108796ec629a70476b.tar.gz | |
Re: SV leak?
Message-ID: <477D28BD.5060801@profvince.com>
Mortalize SVs that are being pushed on the stack.
Try to use specialized macros for pushing mortals.
p4raw-id: //depot/perl@32822
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 8f221223e9..30635f73c4 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -2011,7 +2011,7 @@ HvARRAY(hv) (void)hv_iterinit(hv); EXTEND(sp, HvKEYS(hv) * 2); while ((sv = hv_iternextsv(hv, &key, &len))) { - PUSHs(newSVpvn(key, len)); + mPUSHp(key, len); PUSHs(make_sv_object(aTHX_ sv_newmortal(), sv)); } } |