summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e658f33e6..e63ba16a8 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -403,8 +403,9 @@ sub whatUsbport() {
my @res = ();
foreach $i (0..15) {
my $port = "/dev/usb/lp$i";
- devices::make("$port");
- open PORT, "$port" or next;
+ my $realport = devices::make("$port");
+ next if (!$realport);
+ open PORT, "$realport" or next;
my $idstr;
# Calculation of IOCTL function 0x84005001 (to get device ID string):
# len = 1024