summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--mdkonline.pm11
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