diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 1 | ||||
| -rw-r--r-- | perl-install/devices.pm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 7c33470ff..e658f33e6 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -403,6 +403,7 @@ sub whatUsbport() { my @res = (); foreach $i (0..15) { my $port = "/dev/usb/lp$i"; + devices::make("$port"); open PORT, "$port" or next; my $idstr; # Calculation of IOCTL function 0x84005001 (to get device ID string): diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 4ccac4901..8a3f5ac41 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -111,7 +111,7 @@ sub entry { $type = c::S_IFBLK(); $major = 114; $minor = 16 * $1 + ($2 || 0); - } elsif (/(.*)(\d+)$/) { + } elsif (/(.*\D)(\d+)$/) { ($type, $major, $minor) = @{ ${{"fd" => [ c::S_IFBLK(), 2, 0 ], "hidbp-mse-" => [ c::S_IFCHR(), 10, 32 ], |