commit perl-Parse-Win32Registry for openSUSE:Leap:15.2

[root]

Hello community,

here is the log from the commit of package perl-Parse-Win32Registry for 
openSUSE:Leap:15.2 checked in at 2020-02-22 17:53:07
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Leap:15.2/perl-Parse-Win32Registry (Old)
 and      /work/SRC/openSUSE:Leap:15.2/.perl-Parse-Win32Registry.new.26092 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Parse-Win32Registry"

Sat Feb 22 17:53:07 2020 rev:11 rq:778114 version:1.0

Changes:
--------
--- 
/work/SRC/openSUSE:Leap:15.2/perl-Parse-Win32Registry/perl-Parse-Win32Registry.changes
      2020-01-15 15:42:22.459218476 +0100
+++ 
/work/SRC/openSUSE:Leap:15.2/.perl-Parse-Win32Registry.new.26092/perl-Parse-Win32Registry.changes
   2020-02-22 17:53:07.749854642 +0100
@@ -1,0 +2,5 @@
+Tue Jun 11 19:26:46 UTC 2019 - Bernhard Wiedemann <bwiedem...@suse.com>
+
+- Add fix-time-local.patch to make it work after 2019
+
+-------------------------------------------------------------------

New:
----
  fix-time-local.patch

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Parse-Win32Registry.spec ++++++
--- /var/tmp/diff_new_pack.Cm3dx3/_old  2020-02-22 17:53:08.021855192 +0100
+++ /var/tmp/diff_new_pack.Cm3dx3/_new  2020-02-22 17:53:08.025855200 +0100
@@ -25,6 +25,7 @@
 Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/Parse-Win32Registry/
 Source:         
http://search.cpan.org/CPAN/authors/id/J/JM/JMACFARLA/Parse-Win32Registry-%{version}.tar.gz
+Patch0:         fix-time-local.patch
 BuildRequires:  perl
 BuildRequires:  perl-macros
 BuildRequires:  perl(Carp)
@@ -60,6 +61,7 @@
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
+%patch0 -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor

++++++ fix-time-local.patch ++++++
Date: 2018-02-21
Author: Bernhard M. Wiedemann <bwiedemann suse de>

https://rt.cpan.org/Public/Bug/Display.html?id=124514

Index: Parse-Win32Registry-1.0/lib/Parse/Win32Registry/Base.pm
===================================================================
--- Parse-Win32Registry-1.0.orig/lib/Parse/Win32Registry/Base.pm
+++ Parse-Win32Registry-1.0/lib/Parse/Win32Registry/Base.pm
@@ -167,7 +167,7 @@ sub unpack_windows_time {
 
     # adjust the UNIX epoch time to the local OS's epoch time
     # (see perlport's Time and Date section)
-    my $epoch_offset = timegm(0, 0, 0, 1, 0, 70);
+    my $epoch_offset = timegm(0, 0, 0, 1, 0, 1970);
     $epoch_time += $epoch_offset;
 
     if ($epoch_time < 0 || $epoch_time > 0x7fffffff) {
Index: Parse-Win32Registry-1.0/t/misc.t
===================================================================
--- Parse-Win32Registry-1.0.orig/t/misc.t
+++ Parse-Win32Registry-1.0/t/misc.t
@@ -502,7 +502,7 @@ foreach my $time_test (@time_tests) {
     if (defined($time)) {
         # The test data time is a Unix epoch time
         # so is adjusted to the local OS's epoch time
-        my $epoch_offset = timegm(0, 0, 0, 1, 0, 70);
+        my $epoch_offset = timegm(0, 0, 0, 1, 0, 1970);
         $time += $epoch_offset;
         cmp_ok($unpacked_time1, '==', $time,
             "$desc (scalar) unpack_windows_time");