diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-10-17 18:34:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-10-17 18:34:49 +0000 |
| commit | acdc26142db3112becc42fe2e5c67147ed8a9fa7 (patch) | |
| tree | eb30f32b12e11786e3a8c6d94db4dc92b42344d3 /perl-install/install_steps_interactive.pm | |
| parent | 369fb96d664c7f80217611e52458cdfffc89af72 (diff) | |
| download | drakx-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.pm | 6 |
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 |