diff options
Diffstat (limited to 'perl-install/scanner.pm')
| -rwxr-xr-x | perl-install/scanner.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index e1267c600..13d867bff 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -246,7 +246,7 @@ sub get_usb_ids_for_port { while (my $line = <DETECT>) { if ($line =~ /ID\s+([0-9a-f]+):(0x[0-9a-f]+)($|\s+)/) { # Scanner connected via scanner.o kernel module - return ("0x$1", "0x$2"); + return "0x$1", "0x$2"; last; } } @@ -257,7 +257,7 @@ sub get_usb_ids_for_port { if ($line =~ /^\s*found\s+USB\s+scanner/i) { if ($line =~ /vendor=(0x[0-9a-f]+)[^0-9a-f]+.*prod(|uct)=(0x[0-9a-f]+)[^0-9a-f]+/) { # Scanner connected via scanner.o kernel module - return ($1, $3); + return $1, $3; } } } |