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