From 9b45bbd74291ccf6aa2c73703fa27fc4bece96ea Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 21 Feb 2002 16:26:02 +0000
Subject: use consolehelper when no "kdeinit: kwin" process is running

---
 perl-install/interactive.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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