summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e978e9b6d..e217ecefb 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -73,8 +73,8 @@ sub vnew {
my ($type, $su, $icon) = @_;
$su = $su eq "su";
if ($ENV{INTERACTIVE_HTTP}) {
- require interactive_http;
- return interactive_http->new;
+ require interactive::http;
+ return interactive::http->new;
}
require c;
if ($su) {
@@ -89,9 +89,9 @@ sub vnew {
exec {'consolehelper'} $0, @ARGV or die _("consolehelper missing");
}
}
- eval { require interactive_gtk };
+ eval { require interactive::gtk };
if (!$@) {
- my $o = interactive_gtk->new;
+ my $o = interactive::gtk->new;
if ($icon && $icon ne 'default' && !$::isWizard) { $o->{icon} = $icon } else { undef $o->{icon} }
return $o;
}
@@ -107,8 +107,8 @@ sub vnew {
require 'log.pm';
undef *log::l;
*log::l = sub {}; # otherwise, it will bother us :(
- require interactive_newt;
- interactive_newt->new;
+ require interactive::newt;
+ interactive::newt->new;
}
sub enter_console {}