summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
commit6ed6b5341362f87e3c70420f206a33f71c72a3de (patch)
treeff028b5845f88d0a485f8c20ae726e462627aa59 /perl-install/interactive.pm
parente2889facfca0f6c6f64e2194f913a6b525f255e0 (diff)
downloaddrakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.gz
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.bz2
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.xz
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.zip
- Big Move 1: interactive::* hierarchy
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 {}