reinit the tree, so we can have metadata

6 files changed, 816 insertions, 0 deletions

diff --git a/dev-perl/Date-Pcalc/Date-Pcalc-6.100.0-r1.ebuild b/dev-perl/Date-Pcalc/Date-Pcalc-6.100.0-r1.ebuild
new file mode 100644
index 000000000000..b286459d8dc5
--- /dev/null
+++ b/dev-perl/Date-Pcalc/Date-Pcalc-6.100.0-r1.ebuild
@@ -0,0 +1,26 @@
+# Copyright 1999-2017 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=5
+
+MODULE_AUTHOR=STBEY
+MODULE_VERSION=6.1
+inherit perl-module
+
+DESCRIPTION="Gregorian calendar date calculations"
+
+SLOT="0"
+KEYWORDS="~alpha amd64 ~arm64 ~hppa ~ia64 ~m68k ppc ~ppc64 ~s390 ~sh ~sparc x86"
+IUSE=""
+
+DEPEND=">=dev-perl/Bit-Vector-7
+	>=dev-perl/Carp-Clan-5.3"
+RDEPEND="${DEPEND}"
+
+SRC_TEST="do"
+mydoc="ToDo"
+PATCHES=(
+	"${FILESDIR}"/6.100.0_identifier_before_numeric_constant.patch
+	"${FILESDIR}/${P}-unescaped-left-brace-5.26.patch"
+	"${FILESDIR}/${P}-datestamp-window-move.patch"
+)
diff --git a/dev-perl/Date-Pcalc/Manifest b/dev-perl/Date-Pcalc/Manifest
new file mode 100644
index 000000000000..93cf7dd6faa4
--- /dev/null
+++ b/dev-perl/Date-Pcalc/Manifest
@@ -0,0 +1,8 @@
+AUX 6.100.0_identifier_before_numeric_constant.patch 426 SHA256 e05c68572f2e76a2ad5cca7fa87565453160762bc16334e74a5820974614bdbe SHA512 7233525dcef437e4c51608bcade9da3aa6623542b6955a6f74f7bf3877db158dad26080042139870cb61b6737e02ffbbb22302f7920e742b5346ab69fa76d7db WHIRLPOOL 8af09f114c1d895cbf171f4bf26755c9df33034f9acf0f439cea4f55928a37890518f94667a81f600fe760e30effc85d104128066bb23ed636f29256d69b34d3
+AUX Date-Pcalc-6.100.0-datestamp-window-move.patch 17413 SHA256 40babaf3884748ae4c5396dbc4931071eec1acf86936bcb62351155f33324330 SHA512 a842d9176bd33335674de098b4a4197ec2cdc5b6900a76de3182875fb67b438a699931f8d304b2ed277110a6acec37cc22d63133b0b6501ea88be59763d8588b WHIRLPOOL a701967a960227448030a10a97671bf81f9971543bda716879102c3df81bd3100c4680a0a076d4bfde8f52b22a675f94d408259fe2f8dac916fcfe96775ce258
+AUX Date-Pcalc-6.100.0-unescaped-left-brace-5.26.patch 10615 SHA256 f99f9a0911d148d947bef1266660b3888c7288e3a08a03899909357d4bd49cca SHA512 1f4f4a826d5657f86ce31301b655f54951f307a08f9d01d5c49a868946c920b22ce5c144a2419aefef0a028bd7de59b29c723a3f162111326d1e3256a49f280a WHIRLPOOL 02a320b8c07f5d8754840a953903e6297860420e18b525de202ea4ef4a1f5b313dcd472bd6ffa588f2aeddc8b44eee7cd718f82f9f4ee63e1daca5b2db76defa
+DIST Date-Pcalc-6.1.tar.gz 216790 SHA256 8c4297c2bab22b72bb4fce9df26c6360d4a4166a0a97b29a58465a2592dbd01c SHA512 3f234e505f068e068608e76f5963f85172c1b04b5770d24d33bff704b2a50f1e4f222cfdf2cc5a992e618078f0bf018838278db2cd00e8037bdb2482eb0907c2 WHIRLPOOL 37a161361dbb2a8d0bee17a238a554e71b5e6ec4ed69dd02f2931aca6c9f9782277f3d7b98071f8f4e794d0fb9e5e597e5bd4dbb0e590192e3b2dce79e2158ca
+EBUILD Date-Pcalc-6.100.0-r1.ebuild 610 SHA256 cfdf86de4c2524400ad41652308810a05bfd4923186fa1a3bf903fd6fc84a2fd SHA512 86527c37f22a9bda2b8b007d01db6c65d5175232cf922792fb8a70bc362088ece8c622e1e56c00437943abaebf2acdac375165cf9898392b1d8fc4935641cbbe WHIRLPOOL e4644410cf121b595a83c6abe91f03d1085afc506e1473c181a737e0f874ad95ed210c5e350d320fb4148760f6fb815e3fe1745542e95e8f8051a8ee0468317c
+MISC ChangeLog 2810 SHA256 98ff73112337843f4511a064994b6b2f5119ed52054d9d56e4cfca3eeb4d4a75 SHA512 bf37bf9aa548e7369f1a000c5a3b27c0beac10e084bea1a43f16d4a2bd939dc407bfb7ba3ff2d8b58462b87be6caa892a081ca26051331ba68d306a9150e7d99 WHIRLPOOL bd7a92f4ccd132a4aa866643c3bebab68474fa9d6e211c8a6a8a84a3b9ff3bc9ce63d2199a59e596c7f220066e148e2403bfd5a323ff7ddca18d7726c0c29210
+MISC ChangeLog-2015 3083 SHA256 20c58b50e0ca7fc782db2cf0be9f52cec843f2e32d36574aae50f102c66f338a SHA512 6005b20f5cab4526563f4d46ea0cc1077b150b55accd8e18c433d4d2637afe7f86d3d18fed86da7513041402a05f8adfcd8fa5d3b18436fedf1c5ba3a5298e50 WHIRLPOOL 8afd64a19bc73f44a868754c3feca4dd66a7ced1f2344cb29d76a42300c2922c74907c9790b1824ebc84de4ebb29659bf47f9f23d4b2b8d81e98d011c018dace
+MISC metadata.xml 660 SHA256 633d15c8d69ef44af9dfec2d89e5ccbc72664060b14b008531fab3242959454c SHA512 b497cfac14d6a72abf1268834731fdb778eb83a760c49d855910c68c320eaad6ff39cbc03a629f63774b2e6038f00117ca9fb2503622080b2af978195e414ab4 WHIRLPOOL 0f2e5bc1fd9025c268da4240d947ce4859820a3cd265800b006b0179fac7037bbf03dfc90c236f31ebd8fe5e5cf2b445eac1946241963915284ec2fd6c17180e
diff --git a/dev-perl/Date-Pcalc/files/6.100.0_identifier_before_numeric_constant.patch b/dev-perl/Date-Pcalc/files/6.100.0_identifier_before_numeric_constant.patch
new file mode 100644
index 000000000000..e475ea25c2cc
--- /dev/null
+++ b/dev-perl/Date-Pcalc/files/6.100.0_identifier_before_numeric_constant.patch
@@ -0,0 +1,16 @@
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=76442
+Gentoo-Bug: https://bugs.gentoo.org/420177
+--- a/src/C_XS/ToolBox.h
++++ b/src/C_XS/ToolBox.h
+@@ -93,7 +93,10 @@
+     #elif PERL_DARWIN
+         #define boolean bool
+     #else
+-        typedef enum { false = FALSE, true = TRUE } boolean;
++        typedef int boolean;
++        #ifndef I_STDBOOL
++            enum { false, true };
++        #endif
+     #endif
+ #endif
+ 
diff --git a/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-datestamp-window-move.patch b/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-datestamp-window-move.patch
new file mode 100644
index 000000000000..5a940cdc0fc0
--- /dev/null
+++ b/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-datestamp-window-move.patch
@@ -0,0 +1,497 @@
+From fe3f15ea4afba52a5508ef6ad17c4207db79c9e4 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Sat, 7 Oct 2017 01:38:06 +1300
+Subject: Defend Decode_Date_EU/US against year being warped due to window move
+
+These functions are defined to be floating relative to the current year
+based on the result of the moving window function where the full year
+is itself, unclear.
+
+This prevents the tests failing spuriously due to the calendar rolling
+over.
+
+Bug: https://rt.cpan.org/Ticket/Display.html?id=114375
+---
+ t/f016.t | 34 +++++++++++++++++-----------------
+ t/f027.t | 52 ++++++++++++++++++++++++++--------------------------
+ t/f028.t | 52 ++++++++++++++++++++++++++--------------------------
+ 3 files changed, 69 insertions(+), 69 deletions(-)
+
+diff --git a/t/f016.t b/t/f016.t
+index 98069a4..3228dea 100644
+--- a/t/f016.t
++++ b/t/f016.t
+@@ -4,7 +4,7 @@ BEGIN { eval { require bytes; }; }
+ use strict;
+ no strict "vars";
+ 
+-use Date::Pcalc qw( Decode_Date_EU Decode_Date_US );
++use Date::Pcalc qw( Decode_Date_EU Decode_Date_US Moving_Window);
+ 
+ # ======================================================================
+ #   ($year,$mm,$dd) = Decode_Date_EU($buffer);
+@@ -15,19 +15,19 @@ print "1..25\n";
+ 
+ $n = 1;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3.1.64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3 1 64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("03.01.64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("03/01/64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) &&
+@@ -35,11 +35,11 @@ if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) &&
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("Geburtstag: 3. Januar '64 in Backnang/Württemberg",3)) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("03-Jan-64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) &&
+@@ -47,19 +47,19 @@ if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) &&
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3Jan64",0)) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("030164")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3ja64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_EU("3164")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -72,15 +72,15 @@ unless (($year,$mm,$dd) = Decode_Date_EU("29.2.1995"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US("1 3 64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("01/03/64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 '64")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 1964")) &&
+@@ -96,15 +96,15 @@ if ((($year,$mm,$dd) = Decode_Date_US("Jan31964")) &&
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("Jan364")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("ja364")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ if ((($year,$mm,$dd) = Decode_Date_US("1364")) &&
+-($year==1964)&&($mm==1)&&($dd==3))
++($year==Moving_Window(64))&&($mm==1)&&($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+diff --git a/t/f027.t b/t/f027.t
+index 3070fd7..719e87d 100644
+--- a/t/f027.t
++++ b/t/f027.t
+@@ -4,7 +4,7 @@ BEGIN { eval { require bytes; }; }
+ use strict;
+ no strict "vars";
+ 
+-use Date::Pcalc qw( Decode_Date_US2 Language Decode_Language );
++use Date::Pcalc qw( Decode_Date_US2 Language Decode_Language Moving_Window );
+ 
+ # ======================================================================
+ #   ($year,$mm,$dd) = Decode_Date_US2($date);
+@@ -26,62 +26,62 @@ unless (($year,$mm,$dd) = Decode_Date_US2("_13_"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_134_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_0134_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_00134_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_1364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_01364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_001364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_10364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_010364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_0010364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_110364_")) &&
+-($year==1964) && ($mm==11) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==11) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_0110364_")) &&
+-($year==1964) && ($mm==11) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==11) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_00110364_")) &&
+-($year==1964) && ($mm==11) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==11) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -116,7 +116,7 @@ if ((($year,$mm,$dd) = Decode_Date_US2("_0011031964_")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -126,22 +126,22 @@ if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_1964_")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan_3_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_jAN_3_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_January_3_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -155,32 +155,32 @@ if ((($year,$mm,$dd) = Decode_Date_US2(" January 3rd, 1964 ")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan0364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan00364_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan2264_")) &&
+-($year==1964) && ($mm==1) && ($dd==22))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==22))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan02264_",0)) &&
+-($year==1964) && ($mm==1) && ($dd==22))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==22))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_Jan002264_",'')) &&
+-($year==1964) && ($mm==1) && ($dd==22))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==22))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -223,12 +223,12 @@ unless (($year,$mm,$dd) = Decode_Date_US2("_ja331964_"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x000064x")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_US2("_ja_000003x000064x")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+diff --git a/t/f028.t b/t/f028.t
+index 8c98c51..6c8f396 100644
+--- a/t/f028.t
++++ b/t/f028.t
+@@ -4,7 +4,7 @@ BEGIN { eval { require bytes; }; }
+ use strict;
+ no strict "vars";
+ 
+-use Date::Pcalc qw( Decode_Date_EU2 Language Decode_Language );
++use Date::Pcalc qw( Decode_Date_EU2 Language Decode_Language Moving_Window );
+ 
+ # ======================================================================
+ #   ($year,$mm,$dd) = Decode_Date_EU2($date);
+@@ -26,62 +26,62 @@ unless (($year,$mm,$dd) = Decode_Date_EU2("_31_"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_314_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_0314_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_00314_")) &&
+-($year==2004) && ($mm==1) && ($dd==3))
++($year==Moving_Window(4)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_03164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_003164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_30164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_030164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_0030164_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_110364_")) &&
+-($year==1964) && ($mm==3) && ($dd==11))
++($year==Moving_Window(64)) && ($mm==3) && ($dd==11))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_0110364_")) &&
+-($year==1964) && ($mm==3) && ($dd==11))
++($year==Moving_Window(64)) && ($mm==3) && ($dd==11))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_00110364_")) &&
+-($year==1964) && ($mm==3) && ($dd==11))
++($year==Moving_Window(64)) && ($mm==3) && ($dd==11))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -116,7 +116,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_0011031964_")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -126,22 +126,22 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_1964_")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_64_",0)) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_64_",1)) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-64_",2)) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -156,7 +156,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_3-January-1964_",'')) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -166,7 +166,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-001964_")) &&
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -175,22 +175,22 @@ unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_64_"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja64_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja000064_")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -223,12 +223,12 @@ unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja1964_"))
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+ if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_000064x")) &&
+-($year==1964) && ($mm==1) && ($dd==3))
++($year==Moving_Window(64)) && ($mm==1) && ($dd==3))
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+-- 
+2.14.1
+
diff --git a/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-unescaped-left-brace-5.26.patch b/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-unescaped-left-brace-5.26.patch
new file mode 100644
index 000000000000..b41cf9ad881e
--- /dev/null
+++ b/dev-perl/Date-Pcalc/files/Date-Pcalc-6.100.0-unescaped-left-brace-5.26.patch
@@ -0,0 +1,253 @@
+From 20d1609037ec88f07d12df41fd5e65efd1f64c1f Mon Sep 17 00:00:00 2001
+From: gregor herrmann <gregoa@debian.org>
+Date: Sun, 21 May 2017 21:53:14 +1200
+Subject: Fix "unsecaped left brace" issue fatal in Perl 5.26
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=115100
+Bug: https://bugs.debian.org/826459
+Bug: https://bugs.gentoo.org/615580
+---
+ t/f035.t | 52 ++++++++++++++++++++++++++--------------------------
+ 1 file changed, 26 insertions(+), 26 deletions(-)
+
+diff --git a/t/f035.t b/t/f035.t
+index a7e4a9e..9c625b9 100644
+--- a/t/f035.t
++++ b/t/f035.t
+@@ -106,7 +106,7 @@ $n++;
+ 
+ eval { &{*{$main::{'confess'}}}("CONFESSing"); };
+ 
+-if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -118,7 +118,7 @@ $n++;
+ 
+ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'cluck'}}}("CLUCKing"); };
+ 
+-if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -130,7 +130,7 @@ $n++;
+ 
+ eval { Carp::Clan::confess("confessING"); };
+ 
+-if ($@ =~ /\bconfessING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bconfessING at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -142,7 +142,7 @@ $n++;
+ 
+ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::cluck("cluckING"); };
+ 
+-if ($@ =~ /\bcluckING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/)
++if ($@ =~ /\bcluckING at .+\n.*\b(?:eval \{\.\.\.}|require 0) called at\b/)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -165,7 +165,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -184,7 +184,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -207,7 +207,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -226,7 +226,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -249,7 +249,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -268,7 +268,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -291,7 +291,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -310,7 +310,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -333,7 +333,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -352,7 +352,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -375,7 +375,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -394,7 +394,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -417,7 +417,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -436,7 +436,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -453,7 +453,7 @@ if ($@ =~ /\bCrOaKiNg\ at\ .+\n
+          .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -466,7 +466,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -479,7 +479,7 @@ if ($@ =~ /\bCaRpInG\ at\ .+\n
+          .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+          .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+          .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -492,7 +492,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -509,7 +509,7 @@ if ($@ =~ /\bCrOaKiNg\ at\ .+\n
+          .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -522,7 +522,7 @@ if ($@ =~ /\bCoNfEsSiNg\ at\ .+\n
+          .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -535,7 +535,7 @@ if ($@ =~ /\bCaRpInG\ at\ .+\n
+          .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+          .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+          .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+@@ -548,7 +548,7 @@ if ($@ =~ /\bClUcKiNg\ at\ .+\n
+          .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+          .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n
+-         .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x)
++         .*\b(?:eval\ \{\.\.\.}|require\ 0)\ called\ at\ /x)
+ {print "ok $n\n";} else {print "not ok $n\n";}
+ $n++;
+ 
+-- 
+2.14.1
+
diff --git a/dev-perl/Date-Pcalc/metadata.xml b/dev-perl/Date-Pcalc/metadata.xml
new file mode 100644
index 000000000000..57c201e99f10
--- /dev/null
+++ b/dev-perl/Date-Pcalc/metadata.xml
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+  <maintainer type="project">
+    <email>perl@gentoo.org</email>
+    <name>Gentoo Perl Project</name>
+  </maintainer>
+  <upstream>
+    <remote-id type="cpan">Date-Pcalc</remote-id>
+    <remote-id type="cpan-module">Date::Pcalc</remote-id>
+    <remote-id type="cpan-module">Date::Pcalc::Object</remote-id>
+    <remote-id type="cpan-module">Date::Pcalendar</remote-id>
+    <remote-id type="cpan-module">Date::Pcalendar::Profiles</remote-id>
+    <remote-id type="cpan-module">Date::Pcalendar::Year</remote-id>
+  </upstream>
+</pkgmetadata>