From 4587ca5bacc53d5500c67c81d2b50e7596459aa0 Mon Sep 17 00:00:00 2001 From: Joey Schulze Date: Mon, 11 Jul 2016 22:33:58 +0200 Subject: [PATCH] Support full German date --- src/InfoCon/buch/infocon | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon index 08e7f4f..21e5fe7 100755 --- a/src/InfoCon/buch/infocon +++ b/src/InfoCon/buch/infocon @@ -100,6 +100,12 @@ sub valid_isodate } else { $date = sprintf('%04d-%02d-%02d', $year+1900, $2, $1); } + } elsif ($date =~ /^(\d+)\.(\d+)\.(\d+)?$/) { + if (length $3 == 2) { + $date = sprintf('20%02d-%02d-%02d', $3, $2, $1); + } else { + $date = sprintf('%04d-%02d-%02d', $3, $2, $1); + } } elsif ($date !~ /^(\d+)-(\d+)-(\d+)$/) { return undef; } -- 2.20.1