diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-11-12 17:12:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-11-12 17:12:28 +0000 |
| commit | 0aed5c54861fab8a15a590f276e0ff25dfe0394a (patch) | |
| tree | 369fb72f9afce326524f596c8fe2e426e81e7744 /perl-install/standalone/mousedrake | |
| parent | c591ca9f13d57f981856b161afd711c5fd8cab23 (diff) | |
| download | drakx-backup-do-not-use-0aed5c54861fab8a15a590f276e0ff25dfe0394a.tar drakx-backup-do-not-use-0aed5c54861fab8a15a590f276e0ff25dfe0394a.tar.gz drakx-backup-do-not-use-0aed5c54861fab8a15a590f276e0ff25dfe0394a.tar.bz2 drakx-backup-do-not-use-0aed5c54861fab8a15a590f276e0ff25dfe0394a.tar.xz drakx-backup-do-not-use-0aed5c54861fab8a15a590f276e0ff25dfe0394a.zip | |
fix for bug #1350
(mousedrake dies with: Undefined subroutine &mouse::serial_ports_names)
Diffstat (limited to 'perl-install/standalone/mousedrake')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index e1d3456b7..5736f79ee 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -36,10 +36,11 @@ if (!$mouse || !$::auto) { $mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yesorno('', _("Emulate third button?"), 1)); -$mouse->{device} = mouse::serial_ports_names2dev( - $in->ask_from_list(_("Mouse Port"), - _("Which serial port is your mouse connected to?"), - [ mouse::serial_ports_names() ])) if $mouse->{type} eq 'serial'; +$o->{mouse}{device} = + $o->ask_from_listf(_("Mouse Port"), + _("Please choose on which serial port your mouse is connected to."), + \&mouse::serial_port2text, + [ mouse::serial_ports ]) if $mouse->{type} eq 'serial'; mouse::write('', $mouse); modules::write_conf('') if $mouse->{device} eq "usbmouse" && !$::testing; |