Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:15.2
perl-Parse-Win32Registry
fix-time-local.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File fix-time-local.patch of Package perl-Parse-Win32Registry
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");
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor