diff options
Diffstat (limited to 'bin/db-ris')
-rwxr-xr-x | bin/db-ris | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -our $VERSION = '0.02'; +our $VERSION = '0.03'; use Getopt::Long qw(:config no_ignore_case); use List::Util qw(first max); @@ -43,7 +43,7 @@ for my $type ( split( qr{,}, $types ) ) { my $status = Travel::Status::DE::DeutscheBahn->new( date => $date, mot => \%train_type, - station => shift, + station => shift || show_help(1), time => $time, ); @@ -171,7 +171,7 @@ B<db-ris> [B<-d> I<date>] [B<-L>] [B<-m> I<motlist>] [B<-t> I<time>] =head1 VERSION -version 0.02 +version 0.03 =head1 DESCRIPTION |