From 74f1b2b883ab0bad0d2cf0e913f3d0725b00b68f Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@covalent.net>
Date: Thu, 2 Aug 2001 13:59:04 -0700
Subject: [PATCH] [patch] plug PL_cshname leak Message-ID:
 <Pine.LNX.4.21.0108022058020.8991-100000@mako.covalent.net>

p4raw-id: //depot/perl@11562
---
 sv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
1.8.3.1