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

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index d7c68c5e70..f1acc39a15 100644
--- a/mg.c
+++ b/mg.c
@@ -2829,7 +2829,7 @@ Perl_sighandler(int sig)
 #endif
 		   EXTEND(SP, 2);
 		   PUSHs((SV*)rv);
-		   PUSHs(newSVpvn((char *)sip, sizeof(*sip)));
+		   mPUSHp((char *)sip, sizeof(*sip));
 	      }
 
 	 }