summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;