diff options
-rwxr-xr-x | mdkapplet | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 }, @_); |