diff options
Diffstat (limited to 'bin/efa-m')
-rwxr-xr-x | bin/efa-m | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -4,7 +4,7 @@ use warnings; use 5.010; use utf8; -our $VERSION = '3.08'; +our $VERSION = '3.09'; binmode( STDOUT, ':encoding(utf-8)' ); @@ -555,11 +555,15 @@ if ( my $err = $efa->errstr ) { if ( $efa->place_candidates ) { say 'You might want to try one of the following places:'; - say join( "\n", $efa->place_candidates ); + for my $candidate ( $efa->place_candidates ) { + printf( "%d %s\n", $candidate->id_num, $candidate->name ); + } } elsif ( $efa->name_candidates ) { say 'You might want to try one of the following names:'; - say join( "\n", $efa->name_candidates ); + for my $candidate ( $efa->name_candidates ) { + printf( "%d %s\n", $candidate->id_num, $candidate->name ); + } } exit 2; @@ -610,7 +614,7 @@ B<efa-m> [B<-s> I<service>] I<tripid> =head1 VERSION -version 3.08 +version 3.09 =head1 DESCRIPTION |