Bug#949904: buster-pu: package libole-storage-lite-perl/0.19-2+deb10u1

[Adrian Bunk]

Package: release.debian.org
Severity: normal
Tags: buster
User: release.debian.org at packages.debian.org
Usertags: pu

  * Backport upstream fix for years >= 2020 being misinterpreted.
    (Closes: #948668)
-------------- next part --------------
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 <bunk at 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 <bunk at 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;