From 4a047aa78653c653d4cb635f3d00bf1c502c33b9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
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/NEWS              | 1 +
 perl-install/harddrake/data.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 3491919df..5c6cfc406 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -13,6 +13,7 @@
   o do not show duplicated hardware as unknown (#46242):
     * list PC Speaker as sound card
     * track duplicated input devices
+    * try harder to find duplicates
 
 Version 11.71 - 6 November 2008
 
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