Commit bd7537b6 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

WWW::Efa: Also allow dd.mm dates, for those really lazy people

parent 3557cfb0

lib/WWW/Efa.pm

+1 −1
Original line number Diff line number Diff line
@@ -79,7 +79,7 @@ sub post_time { 
sub post_date {

	my ($post, $date) = @_;



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

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

		die WWW::Efa::Error::Setup->new(

			'date', $date, 'Must match DD.MM.[YYYY]'

		);