1 files changed, 8 insertions, 3 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 09296d1b..6674a2e8 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -345,10 +345,15 @@ sub write_wide_conf {
 
 sub is_running {
     my ($name) = @_;
-    any {
+    my $found;
+    foreach (`ps -o '%P %p %c' -u $ENV{USER}`) {
         my ($_ppid, $pid, $n) = /^\s*(\d+)\s+(\d+)\s+(.*)/;
-        $pid != $$ && $n eq $name;
-    } `ps -o '%P %p %c' -u $ENV{USER}`;
+        if ($pid != $$ && $n eq $name) {
+            $found = $pid;
+            last;
+        }
+    }
+    $found;
 }
 
 # Romain: you need to finish those dns functions or drop them