diff options
| -rw-r--r-- | lib/WWW/Efa.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm index b59bf53..b98a021 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]' ); |