summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/scannerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/scannerdrake')
-rwxr-xr-xperl-install/standalone/scannerdrake18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 2901644c0..eb352bc0d 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -76,6 +76,7 @@ sub removeverticalbar {
sub auto {
my $changed = 0;
foreach (@f) {
+ my $c = 0;
if (member($_->{val}{DESCRIPTION}, keys %$scanner::scannerDB)) {
my $name = $_->{val}{DESCRIPTION};
$name =~ s/\s$//; # some HP entries have a trailing space, i will correct usbtable asap
@@ -84,23 +85,24 @@ sub auto {
next;
}
if ($in->ask_yesorno('Scannerdrake',N("%s found on %s, configure it automatically?",removeverticalbar($name),$_->{port}),1)) {
- $changed ||= (tryConfScanner($name, $_->{port},
- $_->{val}{vendor},
- $_->{val}{id}) or
- manual($_->{port}, $_->{val}{vendor},
- $_->{val}{id}, $name));
+ $c = (tryConfScanner($name, $_->{port},
+ $_->{val}{vendor},
+ $_->{val}{id}) or
+ manual($_->{port}, $_->{val}{vendor},
+ $_->{val}{id}, $name));
} else {
- $changed ||= manual($_->{port}, $_->{val}{vendor},
- $_->{val}{id}, $name);
+ $c = manual($_->{port}, $_->{val}{vendor},
+ $_->{val}{id}, $name);
}
} else {
$in->ask_yesorno('Scannerdrake',
N("%s is not in the scanner database, configure it manually?",
removeverticalbar($_->{val}{DESCRIPTION})),1)
- and ($changed ||=
+ and ($c =
manual($_->{port}, $_->{val}{vendor}, $_->{val}{id},
$_->{val}{DESCRIPTION}));
}
+ $changed ||= $c;
}
return $changed;
}