Bug#949905: stretch-pu: package libole-storage-lite-perl/0.19-1+deb9u1

[Adrian Bunk]

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

  * Backport upstream fix for years >= 2020 being misinterpreted.
    (Closes: #948668)
-------------- next part --------------
diff -u libole-storage-lite-perl-0.19/debian/changelog libole-storage-lite-perl-0.19/debian/changelog
--- libole-storage-lite-perl-0.19/debian/changelog
+++ libole-storage-lite-perl-0.19/debian/changelog
@@ -1,3 +1,11 @@
+libole-storage-lite-perl (0.19-1+deb9u1) stretch; 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 23:07:24 +0200
+
 libole-storage-lite-perl (0.19-1) unstable; urgency=low
 
   [ Jonathan Yu ]
only in patch2:
unchanged:
--- 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 @@
     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;