diff options
Diffstat (limited to 'lib/Travelynx.pm')
| -rwxr-xr-x | lib/Travelynx.pm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 5c54322..d91fa7a 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -350,20 +350,25 @@ sub startup { my @unknown_stations; for my $station ( @{ $opt{route} } ) { my $station_info = get_station($station); - if ( not $station_info ) { + if ($station_info) { + push( @route, [ $station_info->[1], {}, undef ] ); + } + else { + push( @route, [ $station, {}, undef ] ); push( @unknown_stations, $station ); } - push( @route, [ $station_info->[1], {}, undef ] ); } - if ( @unknown_stations == 1 ) { - return ( undef, - "Unbekannter Unterwegshalt: $unknown_stations[0]" ); - } - elsif (@unknown_stations) { - return ( undef, - 'Unbekannte Unterwegshalte: ' - . join( ', ', @unknown_stations ) ); + if ( not $opt{lax} ) { + if ( @unknown_stations == 1 ) { + return ( undef, + "Unbekannter Unterwegshalt: $unknown_stations[0]" ); + } + elsif (@unknown_stations) { + return ( undef, + 'Unbekannte Unterwegshalte: ' + . join( ', ', @unknown_stations ) ); + } } } |