From 4a047aa78653c653d4cb635f3d00bf1c502c33b9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 9 Dec 2008 19:00:27 +0000 Subject: (pciusb_id) try harder to find duplicates: ignore case (b/c bus can be either 'USB' or 'usb' (eg: input devices) --- perl-install/harddrake/data.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/harddrake/data.pm') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 89d93fd27..9901b3691 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -556,7 +556,7 @@ sub pciusb_id { vendor => 'usb_vendor', ); my @fields = qw(bus pci_bus pci_device vendor id subvendor subid description); - join(':', map { $dev->{$alt{$_}} || $dev->{$_} } @fields); + join(':', map { uc($dev->{$alt{$_}} || $dev->{$_}) } @fields); } -- cgit v1.2.1