Version in base suite: 0.19-2

Base version: libole-storage-lite-perl_0.19-2
Target version: libole-storage-lite-perl_0.19-2+deb10u1
Base file: /srv/ftp-master.debian.org/ftp/pool/main/libo/libole-storage-lite-perl/libole-storage-lite-perl_0.19-2.dsc
Target file: /srv/ftp-master.debian.org/policy/pool/main/libo/libole-storage-lite-perl/libole-storage-lite-perl_0.19-2+deb10u1.dsc

 changelog           |    8 ++++++++
 patches/series      |    1 +
 patches/y2k20.patch |   19 +++++++++++++++++++
 3 files changed, 28 insertions(+)

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 19:10:57.000000000 +0000
+++ libole-storage-lite-perl-0.19/debian/changelog	2020-01-26 20:52:58.000000000 +0000
@@ -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 <bunk@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 19:07:48.000000000 +0000
+++ libole-storage-lite-perl-0.19/debian/patches/series	2020-01-26 20:52:58.000000000 +0000
@@ -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 00:00:00.000000000 +0000
+++ libole-storage-lite-perl-0.19/debian/patches/y2k20.patch	2020-01-26 20:52:58.000000000 +0000
@@ -0,0 +1,19 @@
+Description: Fix for dates being misinterpreted after 2020
+Author: Adrian Bunk <bunk@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;