summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-13 16:54:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-13 16:54:58 +0000
commit04a2bcb5a0acc649a5ae031e2546659745c64ec5 (patch)
tree98f8082f238bb6d2b33eccd6016eadfea8b5cc47 /perl-install
parentc9e41d6bd88c5213cc04c22aa02cec72df92f89c (diff)
downloaddrakx-04a2bcb5a0acc649a5ae031e2546659745c64ec5.tar
drakx-04a2bcb5a0acc649a5ae031e2546659745c64ec5.tar.gz
drakx-04a2bcb5a0acc649a5ae031e2546659745c64ec5.tar.bz2
drakx-04a2bcb5a0acc649a5ae031e2546659745c64ec5.tar.xz
drakx-04a2bcb5a0acc649a5ae031e2546659745c64ec5.zip
(vnew): if kdesu is missing and $su required, die
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;