From d463bbcd8475dd0261fb28efcc7b4b6d079a27a1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 13 Jul 2011 09:39:29 +0200 Subject: Release v0.03 --- bin/db-ris | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/db-ris b/bin/db-ris index 234a912..f5633b0 100755 --- a/bin/db-ris +++ b/bin/db-ris @@ -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 [B<-d> I] [B<-L>] [B<-m> I] [B<-t> I