diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index a512efd49..7c33470ff 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -370,7 +370,13 @@ sub whatParport() { open F, "/proc/parport/$_/autoprobe" or open F, "/proc/sys/dev/parport/parport$_/autoprobe" or next; { local $_; - while (<F>) { $elem->{$1} = $2 if /(.*):(.*);/ } + while (<F>) { + if (/(.*):(.*);/) { + $elem->{$1} = $2; + $elem->{$1} =~ s/Hewlett[-\s_]Packard/HP/; + $elem->{$1} =~ s/HEWLETT[-\s_]PACKARD/HP/; + } + } } push @res, { port => "/dev/lp$_", val => $elem}; } |