(fork_exec) return pid of forked process

1 files changed, 2 insertions, 1 deletions

diff --git a/mdkapplet b/mdkapplet
index eac4ac49..bd6989d4 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -197,8 +197,9 @@ sub harvester {
     return if $clean;
 }
 sub fork_exec {
-    run_program::raw({ detach => 1 }, @_);
+    my $pid = run_program::raw({ detach => 1 }, @_);
     refresh_gui(1);                                                                        
+    return $pid;
 }
 sub refresh_gui {
     my ($sens) = @_;