summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/scanner.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 81b9ab3c8..3fa4c9bef 100644
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -263,6 +263,7 @@ sub detect {
open my $DETECT, "LC_ALL=C sane-find-scanner -q |";
while (my $line = <$DETECT>) {
my ($vendorid, $productid, $make, $model, $description, $port, $driver);
+ my $real_device;
if ($line =~ /^\s*found\s+USB\s+scanner/i) {
# Found an USB scanner
if ($line =~ /vendor=(0x[0-9a-f]+)[^0-9a-f\[]+[^\[]*\[([^\[\]]+)\].*prod(|uct)=(0x[0-9a-f]+)[^0-9a-f\[]+[^\[]*\[([^\[\]]+)\]/) {
@@ -284,6 +285,7 @@ sub detect {
if ($device) {
$driver = $device->{driver};
+ $real_device = $device
} else {
#warn "Failed to lookup $vendorid and $productid!\n";
}
@@ -349,7 +351,7 @@ sub detect {
id => $productid,
vendor => $vendorid,
driver => $driver,
- drakx_device => $device,
+ drakx_device => $real_device,
}
};
}