diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-02-26 10:26:52 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-02-26 10:26:52 +0100 |
commit | bd7537b677d46f70a2446fcc00d9834d19a68b6b (patch) | |
tree | b5472d3d2c18493b5b2ba7c39f5db8c5202c0ba4 /lib | |
parent | 3557cfb0c021747caf5a5d2cbb192ac60c0c97bd (diff) |
WWW::Efa: Also allow dd.mm dates, for those really lazy people
Diffstat (limited to 'lib')
-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]' ); |