summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/harddrake/data.pm2
2 files changed, 2 insertions, 1 deletions
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);
}