From 04a2bcb5a0acc649a5ae031e2546659745c64ec5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Mar 2001 16:54:58 +0000
Subject: (vnew): if kdesu is missing and $su required, die

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

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

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 510c042fa..10283ebae 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -61,7 +61,9 @@ sub vnew {
     if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) {
 	if ($su) {
 	    $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
-	    $> and exec "kdesu", "-c", "$0 @ARGV";	    
+	    if ($>) {
+		exec("kdesu", "-c", "$0 @ARGV") or die _("kdesu missing");
+	    }
 	}
 	eval { require interactive_gtk };
 	!$@ and return interactive_gtk->new;
-- 
cgit v1.2.1