From 224b14cb6b741fb15dcc4fd170306dc0165cba29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 17 Dec 1999 17:28:14 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 6691455db..960657ee9 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -43,9 +43,9 @@ sub vnew {
     $su = $su eq "su";
     require c;
     if (c::Xtest($ENV{DISPLAY} ||= ":0")) {
-	if ($su && $>) {
+	if ($su) {
 	    $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
-	    exec "kdesu", "-c", "$0 @ARGV";	    
+	    $> and exec "kdesu", "-c", "$0 @ARGV";	    
 	}
 	require interactive_gtk;
 	interactive_gtk->new;
@@ -61,6 +61,8 @@ sub vnew {
     }
 }
 
+sub suspend {}
+sub resume {}
 sub end {}
 sub exit { exit($_[0]) }
 
-- 
cgit v1.2.1