From a82d4722064ab3cbcfc22d18aa3f692d02ed5cfa Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 26 Apr 2005 20:14:28 +0000 Subject: (getUPS) do not detect IR devices as UPSes (#15495) --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 1de3d4b21..63297d78b 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -592,7 +592,7 @@ sub getNet() { #} sub getUPS() { - my @usb_devices = map { ($_->{name} = $_->{description}) =~ s/.*\|//; $_ } grep { $_->{description} !~ /Joystick/ } usb_probe(); + my @usb_devices = map { ($_->{name} = $_->{description}) =~ s/.*\|//; $_ } grep { $_->{description} !~ /Joystick|IR Combo Device/ } usb_probe(); # MGE serial PnP devices: (map { -- cgit v1.2.1