summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/printer/printerdrake.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index a7273d13c..04464b1bd 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -585,16 +585,11 @@ sub setup_local_autoscan {
my @port;
if ($::expert) {
@port = detect_devices::whatPrinterPort();
- foreach my $q (@port) {
+ LOOP: foreach my $q (@port) {
if (@str) {
- my $alreadyfound = 0;
foreach my $p (@autodetected) {
- if ($p->{port} eq $q) {
- $alreadyfound = 1;
- last;
- }
+ last LOOP if $p->{port} eq $q;
}
- next if $alreadyfound;
}
my $menustr;
if ($q =~ m!^/dev/lp(\d+)$!) {