--- c/leap_seconds.h
+++ c/leap_seconds.h
@@ -62,8 +62,10 @@
ls = 24; \
} else if (utc_rd >= 734685 && utc_rd < 735780) { \
ls = 25; \
+ } else if (utc_rd >= 735780 && utc_rd < 736330) { \
+ ls = 26; \
} else { \
- ls = 26; \
+ ls = 27; \
} \
} \
}
@@ -99,6 +101,7 @@
case 733407: es = 1; break; \
case 734684: es = 1; break; \
case 735779: es = 1; break; \
+ case 736329: es = 1; break; \
} \
} \
}
@@ -134,6 +137,7 @@
case 733407: dl = 86400 + 1; break; \
case 734684: dl = 86400 + 1; break; \
case 735779: dl = 86400 + 1; break; \
+ case 736329: dl = 86400 + 1; break; \
} \
} \
}
--- leaptab.txt
+++ leaptab.txt
@@ -24,3 +24,4 @@
2009 Jan. 1 +1
2012 Jul. 1 +1
2015 Jul. 1 +1
+2017 Jan. 1 +1
--- lib/DateTime/LeapSecond.pm
+++ lib/DateTime/LeapSecond.pm
@@ -109,6 +109,8 @@ sub _initialize {
2006 Jan. 1 +1
2009 Jan. 1 +1
2012 Jun. 1 +1
+ 2015 Jul. 1 +1
+ 2017 Jan. 1 +1
)
);
}
--- t/19leap-second.t
+++ t/19leap-second.t
@@ -1156,6 +1156,8 @@ use DateTime;
[ 2005, 12, 31 ],
[ 2008, 12, 31 ],
[ 2012, 6, 30 ],
+ [ 2015, 6, 30 ],
+ [ 2016, 12, 31 ],
) {
my $formatted = join '-', map { sprintf( '%02d', $_ ) } @{$date};
--- t/release-pp-19leap-second.t
+++ t/release-pp-19leap-second.t
@@ -1168,6 +1168,8 @@ use DateTime;
[ 2005, 12, 31 ],
[ 2008, 12, 31 ],
[ 2012, 6, 30 ],
+ [ 2015, 6, 30 ],
+ [ 2016, 12, 31 ],
) {
my $formatted = join '-', map { sprintf( '%02d', $_ ) } @{$date};