$output_wrong->($msg);
$m->abort();
};
- my @m;
+ my %m;
my $results;
foreach my $pat ("$each\%", "\%$each\%") {
$sth->execute($pat,$pat);
$results= $sth->fetchall_arrayref();
last if @$results==1;
- push @m, @$results;
+ map { $m{ $_->[2] }=1 } @$results;
$results= undef;
}
if (!$results) {
- if (!@m) {
+ if (!%m) {
$err->('no island or arch matches "%s"');
- } elsif (@m > 3) {
+ } elsif (%m > 5) {
$err->(' ');
} else {
$err->('ambiguous island or arch "%s", could be '.
- join(', ', map { $_->[2] } @m));
+ join(', ', sort keys %m));
}
}
push @results, $results->[0];