From: Doug MacEachern <dougm@covalent.net>
Date: Thu, 2 Aug 2001 20:54:08 +0000 (-0700)
Subject: [patch] plug PL_sh_path leak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bb09c15ac0229062f9a94c92742bea0b134228e;p=p5sagit%2Fp5-mst-13.2.git

[patch] plug PL_sh_path leak
Message-ID: <Pine.LNX.4.21.0108022043040.8991-100000@mako.covalent.net>

p4raw-id: //depot/perl@11561
---

diff --git a/sv.c b/sv.c
index 9dd85d7..7fbe14a 100644
--- a/sv.c
+++ b/sv.c
@@ -9927,7 +9927,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_origalen		= proto_perl->Iorigalen;
     PL_pidstatus	= newHV();			/* XXX flag for cloning? */
     PL_osname		= SAVEPV(proto_perl->Iosname);
-    PL_sh_path		= SAVEPV(proto_perl->Ish_path);
+    PL_sh_path		= proto_perl->Ish_path; /* XXX never deallocated */
     PL_sighandlerp	= proto_perl->Isighandlerp;