diff options
| author | Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org> | 2022-12-04 02:45:14 +0100 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@debian.org> | 2022-12-04 02:45:14 +0100 |
| commit | cf59b35e35720164d7f9c89d7d0fcdb9782373d3 (patch) | |
| tree | adc41fcbfc27de2fa98a340a5442c66b5cf20732 | |
| parent | 6b8e2b4d27b79a8768029b0df98adf4954cc1eaa (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 @$_"; |