From 8153757bea44845db44518fbfdded8d60bdcfd5c Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 6 Apr 2001 12:51:40 +0000 Subject: added killing on child process of transaction that have been detached (typically with pid > transaction_pid and parent is 1). --- perl-install/pkgs.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index db0c85780..cb2f70e47 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1383,7 +1383,10 @@ sub install($$$;$$) { } closedir DIR; foreach (keys %tree) { + #- remove child of this process (which will terminate). $pid = $_; while ($pid = $tree{$pid}) { $pid == $$ and push @killpid, $_ } + #- remove child of 1 direct that have a pid greater than current one. + $_ > $$ && $tree{$_} == 1 and push @killpid, $_; } if (@killpid) { log::l("killing process ". join(", ", @killpid)); -- cgit v1.2.1