From 5387d3020d316ea242b21230da5afd3065abb9df Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 12 Apr 2001 12:02:21 +0000 Subject: fix Hewlett-Packard to HP in case. --- perl-install/detect_devices.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index c97a23268..59cfb95bc 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -285,6 +285,7 @@ sub whatUsbport() { my ($i, $elem, @res) = (0, {}); foreach (grep { $_->{type} =~ /Printer/ } usb_probe()) { my ($manufacturer, $model) = split '\|', $_->{description}; + $_->{description} =~ s/Hewlett[-\s_]Packard/HP/; push @res, { port => "/dev/usb/lp$i", val => { CLASS => 'PRINTER', MODEL => $model, MANUFACTURER => $manufacturer, -- cgit v1.2.1