(harvester) return pids of reaped children

1 files changed, 3 insertions, 1 deletions

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 }, @_);