From 27a96035f1da2ff0f4801fedffdb7a8cdadd3fc7 Mon Sep 17 00:00:00 2001 From: Dave Rolsky Date: Mon, 5 Jan 2015 08:53:52 -0600 Subject: [PATCH 1/2] There will be a leap second on June 30, 2015 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Petr Písař --- leaptab.txt | 1 + lib/DateTime/LeapSecond.pm | 4 +--- t/19leap-second.t | 1 + 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/leaptab.txt b/leaptab.txt index f1c7f2e..4075fbd 100644 --- a/leaptab.txt +++ b/leaptab.txt @@ -23,3 +23,4 @@ 2006 Jan. 1 +1 2009 Jan. 1 +1 2012 Jul. 1 +1 +2015 Jul. 1 +1 diff --git a/lib/DateTime/LeapSecond.pm b/lib/DateTime/LeapSecond.pm index c5bf97c..736f2eb 100644 --- a/lib/DateTime/LeapSecond.pm +++ b/lib/DateTime/LeapSecond.pm @@ -74,9 +74,6 @@ sub day_length { sub _initialize { - # this table: ftp://62.161.69.5/pub/tai/publication/leaptab.txt - # known accurate until (at least): 2005-12-31 - # # There are no leap seconds before 1972, because that's the # year this system was implemented. # @@ -109,6 +106,7 @@ sub _initialize { 2006 Jan. 1 +1 2009 Jan. 1 +1 2012 Jun. 1 +1 + 2015 Jul. 1 +1 ) ); } diff --git a/t/19leap-second.t b/t/19leap-second.t index ecd2598..3d9434c 100644 --- a/t/19leap-second.t +++ b/t/19leap-second.t @@ -1156,6 +1156,7 @@ use DateTime; [ 2005, 12, 31 ], [ 2008, 12, 31 ], [ 2012, 6, 30 ], + [ 2015, 6, 30 ], ) { my $formatted = join '-', map { sprintf( '%02d', $_ ) } @{$date}; -- 2.5.5