From 0f16f9693f47687136e5058916d0d04dcb611217 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 8 Nov 1999 01:48:28 +0000 Subject: no_comment --- perl-install/mouse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 44bde68ac..6303d3b1a 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -46,7 +46,7 @@ my @mouses = ( [ 2, "inportbm", "Busmouse", "BusMouse", __("Microsoft Bus Mouse") ], [ 3, "logibm", "Busmouse", "BusMouse", __("Logitech Bus Mouse") ], [ 2, "usbmouse", "ps/2", "PS/2", __("USB Mouse") ], - [ 5, "usbmouse", "ps/2", "PS/2", __("USB Mouse (3 buttons or more)") ], + [ 3, "usbmouse", "ps/2", "PS/2", __("USB Mouse (3 buttons or more)") ], ); map_index { my %l; @l{@mouses_fields} = @$_; @@ -63,7 +63,7 @@ sub name2mouse { die "$name not found"; } -sub serial_ports_names { +sub serial_ports_names() { map { "ttyS" . ($_ - 1) . " / COM$_" } 1..4; } sub serial_ports_names2dev { -- cgit v1.2.1