summaryrefslogtreecommitdiff
path: root/lib/Travelynx.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-xlib/Travelynx.pm9
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} } );