diff options
| author | Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org> | 2020-01-03 05:09:21 +0100 |
|---|---|---|
| committer | gregor herrmann <gregoa@debian.org> | 2020-01-03 05:09:21 +0100 |
| commit | 1013afbe9538e4a3da2fa2af675dca46436b1652 (patch) | |
| tree | 1cd94ce594805a84e0ed0c67fc99f98903ea72a1 | |
| parent | dde79bec25894d1449d5b4b820b2b664b140d27e (diff) | |
turn the y2k20 into a y2k40 problem, or fix test failures starting in 2020
t/timelocal.t fails with
Gbp-Pq: Name y2k20.patch
| -rw-r--r-- | t/timelocal.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/timelocal.t b/t/timelocal.t index 6a99dfb..d7cd52b 100644 --- a/t/timelocal.t +++ b/t/timelocal.t @@ -25,7 +25,7 @@ foreach( # Test timelocal() { - my $year_in = $year < 70 ? $year + 1900 : $year; + my $year_in = $year < 90 ? $year + 1900 : $year; my $time = &timelocal($sec,$min,$hour,$mday,$mon,$year_in); my($s,$m,$h,$D,$M,$Y) = localtime($time); is $s, $sec, "timelocal second for @$_"; @@ -38,7 +38,7 @@ foreach( # Test timegm() { - my $year_in = $year < 70 ? $year + 1900 : $year; + my $year_in = $year < 90 ? $year + 1900 : $year; my $time = &timegm($sec,$min,$hour,$mday,$mon,$year_in); my($s,$m,$h,$D,$M,$Y) = gmtime($time); is $s, $sec, "timegm second for @$_"; |