summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-23 15:30:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-23 15:30:46 +0000
commit1d7e1ce138635b9cc21e697a2f75ee07d879b990 (patch)
tree51a595a4cf72f6fe9edaf540afb40c310ebe4391 /perl-install/interactive.pm
parent1f671787f42a1968196877a30997b9a46013c5aa (diff)
downloaddrakx-1d7e1ce138635b9cc21e697a2f75ee07d879b990.tar
drakx-1d7e1ce138635b9cc21e697a2f75ee07d879b990.tar.gz
drakx-1d7e1ce138635b9cc21e697a2f75ee07d879b990.tar.bz2
drakx-1d7e1ce138635b9cc21e697a2f75ee07d879b990.tar.xz
drakx-1d7e1ce138635b9cc21e697a2f75ee07d879b990.zip
use fuzzy_pidofs (to detect if kwin is running)
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
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");