diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index b59bf53afbc15370791e63404681a2d4ac393632..b98a021c1d6766181156973b7d637c220bc9a11e 100644 --- a/lib/WWW/Efa.pm +++ b/lib/WWW/Efa.pm @@ -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]' );