[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 (file)
--- 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;