summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-10-17 18:34:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-10-17 18:34:49 +0000
commitacdc26142db3112becc42fe2e5c67147ed8a9fa7 (patch)
treeeb30f32b12e11786e3a8c6d94db4dc92b42344d3 /perl-install/install_steps_interactive.pm
parent369fb96d664c7f80217611e52458cdfffc89af72 (diff)
downloaddrakx-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar
drakx-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.gz
drakx-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.bz2
drakx-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.xz
drakx-acdc26142db3112becc42fe2e5c67147ed8a9fa7.zip
make new perl_checker happy: replacing PKG::f by PKG::f()
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 21e9c68ed..26585229a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -280,7 +280,7 @@ sub selectMouse {
my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name};
$o->{mouse} = mouse::fullname2mouse(
$o->ask_from_treelist_('', _("Please choose the type of your mouse."),
- '|', [ mouse::fullnames ], $prev) || return) if $force;
+ '|', [ mouse::fullnames() ], $prev) || return) if $force;
if ($force && $o->{mouse}{type} eq 'serial') {
$o->set_help('selectSerialPort');
@@ -288,7 +288,7 @@ sub selectMouse {
$o->ask_from_listf(_("Mouse Port"),
_("Please choose on which serial port your mouse is connected to."),
\&mouse::serial_port2text,
- [ mouse::serial_ports ]) or return;
+ [ mouse::serial_ports() ]) or return;
}
if (arch() =~ /ppc/ && $o->{mouse}{nbuttons} == 1) {
#- set a sane default F11/F12
@@ -369,7 +369,7 @@ sub doPartitionDisks {
install_any::getHds($o, $o);
- if (arch() =~ /ppc/ && detect_devices::get_mac_generation =~ /NewWorld/) { #- need to make bootstrap part if NewWorld machine - thx Pixel ;^)
+ if (arch() =~ /ppc/ && detect_devices::get_mac_generation() =~ /NewWorld/) { #- need to make bootstrap part if NewWorld machine - thx Pixel ;^)
if (defined $partition_table::mac::bootstrap_part) {
#- don't do anything if we've got the bootstrap setup
#- otherwise, go ahead and create one somewhere in the drive free space