summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm4
1 files changed, 3 insertions, 1 deletions
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;