diff options
| -rwxr-xr-x | bin/db-iris | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/bin/db-iris b/bin/db-iris index 9e1b649..d8f9331 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -78,7 +78,7 @@ if ($date) { if ( $date eq 'tomorrow' ) { $datetime->add( days => 1 ); } - elsif (not( defined $day and defined $month ) + elsif ( not( defined $day and defined $month ) or ( $day < 1 ) or ( $day > 31 ) or ( $month < 1 ) diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index eb154c1..a496716 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -448,13 +448,13 @@ sub get_station_p { ); return; } - )->catch( + )->catch( sub { my ($err) = @_; $promise->reject($err); return; } - )->wait; + )->wait; return $promise; } @@ -672,13 +672,13 @@ sub get_timetable_p { $promise->resolve; return; } - )->catch( + )->catch( sub { my ($err) = @_; $promise->reject($err); return; } - )->wait; + )->wait; return $promise; } @@ -736,13 +736,13 @@ sub get_realtime_p { $promise->resolve; return; } - )->catch( + )->catch( sub { my ($err) = @_; $promise->reject("Failed to fetch realtime data: $err"); return; } - )->wait; + )->wait; return $promise; } |