diff options
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 9 |
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+)$!) { |