From 5c31e9f52c3891f571ef91a88a8cb156d482c2c4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Sun, 26 Sep 2004 12:30:52 +0000
Subject: fix again running processes detection

---
 perl-install/standalone/net_applet | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 9bcc3bd3e..01abf659c 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -84,7 +84,11 @@ ugtk2::exit(0);
 
 sub is_running {
     my ($name) = @_;
-    any { !/^\s*$$\b/ && /\b\Q$name\E$/ } `ps -u $ENV{USER}`;
+    any {
+	my ($ppid, $pid, $n) = /^\s*(\d+)\s+(\d+)\s+(.*)/;
+	#- to run ps, perl may create some process with $name as name and 1 as ppid
+	$ppid ne 1 && $pid ne $$ && $n eq $name;
+    } `ps -o '%P %p %c' -u $ENV{USER}`;
 }
 sub shouldStart() {
     my %p = getVarsFromSh($onstartupfile);
-- 
cgit v1.2.1