diff options
Diffstat (limited to 'lib/Travelynx.pm')
| -rwxr-xr-x | lib/Travelynx.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 81dae20..5c54322 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -958,7 +958,7 @@ sub startup { $self->helper( 'journey_sanity_check' => sub { - my ( $self, $journey ) = @_; + my ( $self, $journey, $lax ) = @_; if ( $journey->{sched_duration} and $journey->{sched_duration} < 0 ) { @@ -983,7 +983,12 @@ sub startup { { return 'Zugfahrten mit über 500 km/h? Schön wär\'s.'; } - if ( $journey->{edited} & 0x0010 ) { + if ( $journey->{route} and @{ $journey->{route} } > 99 ) { + my $stop_count = @{ $journey->{route} }; + return +"Die Zugfahrt hat $stop_count Unterwegshalte. Also ich weiß ja nicht so recht."; + } + if ( $journey->{edited} & 0x0010 and not $lax ) { my @unknown_stations = $self->grep_unknown_stations( map { $_->[0] } @{ $journey->{route} } ); |