summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/mousedrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-11-12 17:12:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-11-12 17:12:28 +0000
commit0aed5c54861fab8a15a590f276e0ff25dfe0394a (patch)
tree369fb72f9afce326524f596c8fe2e426e81e7744 /perl-install/standalone/mousedrake
parentc591ca9f13d57f981856b161afd711c5fd8cab23 (diff)
downloaddrakx-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-xperl-install/standalone/mousedrake9
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;