Package: release.debian.org
Severity: normal
Tags: buster
User: release.debian....@packages.debian.org
Usertags: pu
* Backport upstream fix for years >= 2020 being misinterpreted.
(Closes: #948668)
diff -Nru libole-storage-lite-perl-0.19/debian/changelog
libole-storage-lite-perl-0.19/debian/changelog
--- libole-storage-lite-perl-0.19/debian/changelog 2018-07-07
22:10:57.000000000 +0300
+++ libole-storage-lite-perl-0.19/debian/changelog 2020-01-26
22:52:58.000000000 +0200
@@ -1,3 +1,11 @@
+libole-storage-lite-perl (0.19-2+deb10u1) buster; urgency=medium
+
+ * Non-maintainer upload.
+ * Backport upstream fix for years >= 2020 being misinterpreted.
+ (Closes: #948668)
+
+ -- Adrian Bunk <b...@debian.org> Sun, 26 Jan 2020 22:52:58 +0200
+
libole-storage-lite-perl (0.19-2) unstable; urgency=medium
* Team upload
diff -Nru libole-storage-lite-perl-0.19/debian/patches/series
libole-storage-lite-perl-0.19/debian/patches/series
--- libole-storage-lite-perl-0.19/debian/patches/series 2018-07-07
22:07:48.000000000 +0300
+++ libole-storage-lite-perl-0.19/debian/patches/series 2020-01-26
22:52:58.000000000 +0200
@@ -1 +1,2 @@
spelling.patch
+y2k20.patch
diff -Nru libole-storage-lite-perl-0.19/debian/patches/y2k20.patch
libole-storage-lite-perl-0.19/debian/patches/y2k20.patch
--- libole-storage-lite-perl-0.19/debian/patches/y2k20.patch 1970-01-01
02:00:00.000000000 +0200
+++ libole-storage-lite-perl-0.19/debian/patches/y2k20.patch 2020-01-26
22:52:58.000000000 +0200
@@ -0,0 +1,19 @@
+Description: Fix for dates being misinterpreted after 2020
+Author: Adrian Bunk <b...@debian.org>
+Bug-Debian: https://bugs.debian.org/948668
+Origin: upstream
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=124513
+
+--- libole-storage-lite-perl-0.19.orig/lib/OLE/Storage_Lite.pm
++++ libole-storage-lite-perl-0.19/lib/OLE/Storage_Lite.pm
+@@ -1364,7 +1364,9 @@ sub LocalDate2OLE {
+ return "\x00" x 8 unless $localtime;
+
+ # Convert from localtime (actually gmtime) to seconds.
+- my $time = timegm( @{$localtime} );
++ my @localtimecopy = @{$localtime};
++ $localtimecopy[5] += 1900 unless $localtimecopy[5] > 99;
++ my $time = timegm( @localtimecopy );
+
+ # Add the number of seconds between the 1601 and 1970 epochs.
+ $time += 11644473600;
