From ea1c93402dfa2aba19ab3dbc3551cd21572affb9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Dec 1999 16:42:45 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 824bd795f..6691455db 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -43,11 +43,16 @@ sub vnew {
     $su = $su eq "su";
     require c;
     if (c::Xtest($ENV{DISPLAY} ||= ":0")) {
-	$su && $> && exec "kdesu", "-c", "$0 @ARGV";
+	if ($su && $>) {
+	    $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
+	    exec "kdesu", "-c", "$0 @ARGV";	    
+	}
 	require interactive_gtk;
 	interactive_gtk->new;
     } else {
-	$su && $> && die "you must be root to run this program";
+	if ($su && $>) {
+	    die "you must be root to run this program";
+	}
 	require 'log.pm';
 	undef *log::l;
 	*log::l = sub {}; # otherwise, it will bother us :(
-- 
cgit v1.2.1