summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm1
-rw-r--r--perl-install/devices.pm2
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 ],