Commit 452673f5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Correct --date help message

parent 5e98acb5

bin/efa

+1 −1
Original line number Diff line number Diff line
@@ -292,7 +292,7 @@ if ($time) { 
}

if ($date) {

	if ($date !~ /^ [0-3]? \d \. [01]? \d \. (?: \d{4} )? $/x) {

		die("Invalid argument: Usage: --date DD.MM[.YYYY]\n");

		die("Invalid argument: Usage: --date DD.MM.[YYYY]\n");

	}

	@post{'itdDateDay', 'itdDateMonth', 'itdDateYear'} = split(/\./, $date);

	$post{itdDateYear} //= (localtime(time))[5] + 1900;

test/50-efa.t

+1 −1
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ my $err_exclude = "Invalid argument. See manpage for --exclude usage\n"; 
my $err_prefer  = "Invalid argument. Usage: --prefer speed|nowait|nowalk\n";

my $err_include = "Invalid argument. Usage: --include local|ic|ice\n";

my $err_time    = "Invalid argument. Usage: --time HH:MM\n";

my $err_date    = "Invalid argument: Usage: --date DD.MM[.YYYY]\n";

my $err_date    = "Invalid argument: Usage: --date DD.MM.[YYYY]\n";



my $err_walk_speed

	= "Invalid argument. Uaseg: --walk-speed normal|fast|slow\n";