From 89a14b9204e0caad6d143949e0ea9c4cf2173df9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 5 Aug 2005 04:23:39 +0000 Subject: move is_xbox from common to detect_devices --- 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 f11fcc3d5..e991514cc 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -86,7 +86,7 @@ my %mice = N_("Universal") => [ [ 'input/mice' ], [ [ 7, 'ps/2', 'ExplorerPS/2', N_("Any PS/2 & USB mice") ], - if_(is_xbox(), [ 5, 'ps/2', 'IMPS/2', N_("Microsoft Xbox Controller S") ]), + if_(detect_devices::is_xbox(), [ 5, 'ps/2', 'IMPS/2', N_("Microsoft Xbox Controller S") ]), ] ], ), @@ -295,7 +295,7 @@ sub detect { if (c::kernel_version() =~ /^\Q2.6/) { $modules_conf->get_probeall("usb-interface") and eval { modules::load('usbhid') }; if (cat_('/proc/bus/input/devices') =~ /^H: Handlers=mouse/m) { - if (is_xbox()) { + if (detect_devices::is_xbox()) { return fullname2mouse('Universal|Microsoft Xbox Controller S'); } my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); -- cgit v1.2.1