Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
SUSE:SLE-15:Update
perl.14055
perl-fix2020.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-fix2020.patch of Package perl.14055
submitted upstream Author: Bernhard M. Wiedemann <bwiedemann suse de> Date: 2018-03-18 Subject: fix calls of timelocal to work after 2019 because year 70 then starts to mean 2070 https://bugzilla.opensuse.org/show_bug.cgi?id=1102840 trackerbug: build fails at some time https://rt.perl.org/Ticket/Display.html?id=132896 perl Net::NNTP https://rt.perl.org/Ticket/Display.html?id=132898 perl Net::FTP => https://rt.cp an.org/Public/Bug/Display.html?id=124534 https://rt.perl.org/Ticket/Display.html?id=132897 perl doc --- ./cpan/Time-Local/t/Local.t.orig 2020-02-05 14:40:00.406521792 +0000 +++ ./cpan/Time-Local/t/Local.t 2020-02-05 15:20:34.648804873 +0000 @@ -96,8 +96,7 @@ SKIP: { # Test timelocal() { - my $year_in = $year < 70 ? $year + 1900 : $year; - my $time = timelocal( $sec, $min, $hour, $mday, $mon, $year_in ); + my $time = timelocal( $sec, $min, $hour, $mday, $mon, $year + 1900 ); my ( $s, $m, $h, $D, $M, $Y ) = localtime($time); @@ -111,8 +110,7 @@ SKIP: { # Test timegm() { - my $year_in = $year < 70 ? $year + 1900 : $year; - my $time = timegm( $sec, $min, $hour, $mday, $mon, $year_in ); + my $time = timegm( $sec, $min, $hour, $mday, $mon, $year + 1900 ); my ( $s, $m, $h, $D, $M, $Y ) = gmtime($time); @@ -138,19 +136,19 @@ for (@bad_time) { { is( - timelocal( 0, 0, 1, 1, 0, 90 ) - timelocal( 0, 0, 0, 1, 0, 90 ), 3600, + timelocal( 0, 0, 1, 1, 0, 1990 ) - timelocal( 0, 0, 0, 1, 0, 1990 ), 3600, 'one hour difference between two calls to timelocal' ); is( - timelocal( 1, 2, 3, 1, 0, 100 ) - timelocal( 1, 2, 3, 31, 11, 99 ), + timelocal( 1, 2, 3, 1, 0, 2000 ) - timelocal( 1, 2, 3, 31, 11, 1999 ), 24 * 3600, 'one day difference between two calls to timelocal' ); # Diff beween Jan 1, 1980 and Mar 1, 1980 = (31 + 29 = 60 days) is( - timegm( 0, 0, 0, 1, 2, 80 ) - timegm( 0, 0, 0, 1, 0, 80 ), + timegm( 0, 0, 0, 1, 2, 1980 ) - timegm( 0, 0, 0, 1, 0, 1980 ), 60 * 24 * 3600, '60 day difference between two calls to timegm' ); @@ -162,7 +160,7 @@ for (@bad_time) { # treated like 03:00:00 rather than 01:00:00 - negative zone offsets used # to do the latter { - my $hour = ( localtime( timelocal( 0, 0, 2, 7, 3, 102 ) ) )[2]; + my $hour = ( localtime( timelocal( 0, 0, 2, 7, 3, 2002 ) ) )[2]; # testers in US/Pacific should get 3, # other testers should get 2 --- ./cpan/libnet/lib/Net/FTP.pm.orig 2017-07-18 22:49:51.000000000 +0000 +++ ./cpan/libnet/lib/Net/FTP.pm 2020-02-05 14:40:00.406521792 +0000 @@ -264,7 +264,7 @@ sub mdtm { $ftp->_MDTM($file) && $ftp->message =~ /((\d\d)(\d\d\d?))(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/ - ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? $3 : ($1 - 1900)) + ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? ($3 + 1900) : $1) : undef; } --- ./cpan/libnet/lib/Net/NNTP.pm.orig 2017-07-18 22:49:51.000000000 +0000 +++ ./cpan/libnet/lib/Net/NNTP.pm 2020-02-05 14:40:00.406521792 +0000 @@ -598,7 +598,7 @@ sub date { $nntp->_DATE && $nntp->message =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/ - ? timegm($6, $5, $4, $3, $2 - 1, $1 - 1900) + ? timegm($6, $5, $4, $3, $2 - 1, $1) : undef; } --- ./pod/perlport.pod.orig 2020-02-05 14:45:01.949813224 +0000 +++ ./pod/perlport.pod 2020-02-05 14:40:00.406521792 +0000 @@ -670,7 +670,7 @@ When calculating specific times, such as it may be appropriate to calculate an offset for the epoch. use Time::Local qw(timegm); - my $offset = timegm(0, 0, 0, 1, 0, 70); + my $offset = timegm(0, 0, 0, 1, 0, 1970); The value for C<$offset> in Unix will be C<0>, but in Mac OS Classic will be some large number. C<$offset> can then be added to a Unix 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