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

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

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

diff --git a/sv.c b/sv.c
index 7fbe14a..33a87b8 100644
--- a/sv.c
+++ b/sv.c
@@ -9937,7 +9937,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
 #ifdef CSH
     PL_cshlen		= proto_perl->Icshlen;
-    PL_cshname		= SAVEPVN(proto_perl->Icshname, PL_cshlen);
+    PL_cshname		= proto_perl->Icshname; /* XXX never deallocated */
 #endif
 
     PL_lex_state	= proto_perl->Ilex_state;