From dff36627d87ef7cee8537ba9740b243944804371 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 16 Mar 2007 11:29:56 +0000 Subject: (harvester) return pids of reaped children --- mdkapplet | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/mdkapplet b/mdkapplet index bd6989d4..8a4ad6d9 100755 --- a/mdkapplet +++ b/mdkapplet @@ -189,12 +189,14 @@ ugtk2::exit(0); # Signal management sub harvester { my ($_signame, $clean) = @_; - my $childpid; + my ($childpid, @pids); do { $childpid = waitpid(-1, &WNOHANG); + push @pids, $childpid; WIFEXITED($?) and refresh_gui(1); } while $childpid > 0; return if $clean; + return @pids; } sub fork_exec { my $pid = run_program::raw({ detach => 1 }, @_); -- cgit v1.2.1