diff options
author | Vincent Pit <perl@profvince.com> | 2008-01-03 20:26:05 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-04-03 16:39:03 +0000 |
commit | 0e540a27e5414e63e2bf6e174ad65fc1056293ee (patch) | |
tree | e204af35ae818c92ece7d35100c5f3a00047f0f9 /pp_sys.c | |
parent | 16bb28964aaf204ab2e4851e71fbf749f9e5d5c4 (diff) | |
download | perl-0e540a27e5414e63e2bf6e174ad65fc1056293ee.tar.gz |
Integrate:
[ 32822]
Subject: 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-link: @32822 on //depot/perl: 22f1178fc6ea7d78b2fce6108796ec629a70476b
p4raw-id: //depot/maint-5.10/perl@33641
p4raw-integrated: from //depot/perl@33640 'copy in' os2/os2.c
(@32713..)
p4raw-integrated: from //depot/perl@32822 'copy in' win32/wince.c
(@32713..) 'merge in' ext/Win32/Win32.xs (@31935..) ext/B/B.xs
(@32804..) mg.c pp_sys.c (@32821..)
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4700,7 +4700,7 @@ PP(pp_ghostent) } #else if (hent->h_addr) - PUSHs(newSVpvn(hent->h_addr, len)); + mPUSHp(hent->h_addr, len); else PUSHs(sv_mortalcopy(&PL_sv_no)); #endif /* h_addr */ |