From 1d7e1ce138635b9cc21e697a2f75ee07d879b990 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 23 Jul 2002 15:30:46 +0000
Subject: use fuzzy_pidofs (to detect if kwin is running)

---
 perl-install/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e217ecefb..ebbd14fc9 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -83,7 +83,7 @@ sub vnew {
     }
     if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) {
 	if ($su && $>) {
-	    if (`/sbin/pidof "kdeinit: kwin"` > 0) {
+	    if (fuzzy_pidofs(qr/\bkwin\b/) > 0) {
 		exec("kdesu", "-c", "$0 @ARGV") or die _("kdesu missing");
 	    } else {
 		exec {'consolehelper'} $0, @ARGV or die _("consolehelper missing");
-- 
cgit v1.2.1