summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorDoug MacEachern <dougm@covalent.net>2001-08-02 13:54:08 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-03 12:10:32 +0000
commit0bb09c15ac0229062f9a94c92742bea0b134228e (patch)
tree01e2a7b775b2a255e5ebd3358110546732740792 /sv.c
parent5f8cb0464db8019389b7bf1816b817fa4d44ca34 (diff)
downloadperl-0bb09c15ac0229062f9a94c92742bea0b134228e.tar.gz
[patch] plug PL_sh_path leak
Message-ID: <Pine.LNX.4.21.0108022043040.8991-100000@mako.covalent.net> p4raw-id: //depot/perl@11561
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 9dd85d78d7..7fbe14a46b 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;