summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-16 03:18:41 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-16 03:18:41 +0000
commit1c0ca838512883f7a705e306f80a7c0a95277a87 (patch)
tree22dcb6bd4b328050cf8bbb56ff33c75af672ddef /embed.pl
parentf433d095c701fc99be6dfb685ceb5f4cb6fafb97 (diff)
downloadperl-1c0ca838512883f7a705e306f80a7c0a95277a87.tar.gz
due to an oversight during PERL_OBJECT migration, hosts created
by pseudo-fork were never being deleted, leading to a sizeable memory leak; std FDs in pseudo-children are now closed automatically to avoid resource leaks; basic infinite looping fork() test works without leaking again in non-PERL_OBJECT build p4raw-id: //depot/perl@5761
Diffstat (limited to 'embed.pl')
-rwxr-xr-xembed.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/embed.pl b/embed.pl
index 600e818155..eecf964f43 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1445,7 +1445,7 @@ p |bool |do_aexec |SV* really|SV** mark|SV** sp
p |bool |do_aexec5 |SV* really|SV** mark|SV** sp|int fd|int flag
Ap |int |do_binmode |PerlIO *fp|int iotype|int flag
p |void |do_chop |SV* asv|SV* sv
-p |bool |do_close |GV* gv|bool not_implicit
+Ap |bool |do_close |GV* gv|bool not_implicit
p |bool |do_eof |GV* gv
p |bool |do_exec |char* cmd
#if !defined(WIN32)