foreach my $each (split m#[/|,]#, $string) {
$each =~ s/^\s*//; $each =~ s/\s*$//; $each =~ s/\s+/ /g;
foreach my $each (split m#[/|,]#, $string) {
$each =~ s/^\s*//; $each =~ s/\s*$//; $each =~ s/\s+/ /g;
my $results;
foreach my $pat ("$each\%", "\%$each\%") {
$sth->execute($pat,$pat);
$results= $sth->fetchall_arrayref();
last if @$results==1;
my $results;
foreach my $pat ("$each\%", "\%$each\%") {
$sth->execute($pat,$pat);
$results= $sth->fetchall_arrayref();
last if @$results==1;
- $err->('ambiguous island or arch "%s", could be '.
- join(', ', map { $_->[2] } @m));
+ return $err->('ambiguous island or arch "%s",'.
+ ' could be '.join(', ', sort keys %m));