summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-02-21 16:38:09 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-02-21 16:38:09 +0000
commit51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e (patch)
tree5152a4ca0095a77db7a509e437ff6b4e7c8c295c /perl-install
parent9b45bbd74291ccf6aa2c73703fa27fc4bece96ea (diff)
downloaddrakx-51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e.tar
drakx-51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e.tar.gz
drakx-51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e.tar.bz2
drakx-51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e.tar.xz
drakx-51fa39ff37fd9743a31dd85e14c2fce9cd1edb4e.zip
when not in X and needs su, use consolehelper now
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b0b313073..b22e703a9 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -95,6 +95,10 @@ sub vnew {
if ($icon && $icon ne 'default' && !$::isWizard) { $o->{icon} = $icon } else { undef $o->{icon} }
return $o;
}
+ } else {
+ if ($su && $>) {
+ exec {'consolehelper'} $0, @ARGV or die _("consolehelper missing");
+ }
}
if ($su && $>) {