From 006e6d40d8d4a91a9e1a67b17211f0c072747533 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Mon, 27 Sep 2004 07:36:35 +0000
Subject: - new process check before launching duplicate

---
 mdkapplet | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 83269ed2..79138a5b 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -278,7 +278,11 @@ sub compareWithInstalled {
 }
 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 rpmverparse {
     my ($ver) = @_;
-- 
cgit v1.2.1