summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-13 14:02:13 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-13 14:02:13 +0000
commitd1397a722aec6c8704938cfaf82fca1db3baf9b3 (patch)
treeb5a2a51417402faca8b0aa4f17d89217dc3d1c69 /perl-install
parentddcdb532df623950e0b94e598acb2147c2697284 (diff)
downloaddrakx-d1397a722aec6c8704938cfaf82fca1db3baf9b3.tar
drakx-d1397a722aec6c8704938cfaf82fca1db3baf9b3.tar.gz
drakx-d1397a722aec6c8704938cfaf82fca1db3baf9b3.tar.bz2
drakx-d1397a722aec6c8704938cfaf82fca1db3baf9b3.tar.xz
drakx-d1397a722aec6c8704938cfaf82fca1db3baf9b3.zip
(vnew) do not complaint about being run as root when --testing was passed
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 1d658eda3..255f64b40 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -88,7 +88,7 @@ sub new($) {
sub vnew {
my ($_type, $o_su, $o_icon) = @_;
- my $su = $o_su eq "su";
+ my $su = $::testing ? 0 : $o_su eq "su";
if ($ENV{INTERACTIVE_HTTP}) {
require interactive::http;
return interactive::http->new;