diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 16:10:37 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 16:10:37 +0000 |
commit | d0e85dcee87ca227273fd34b9a90f68c96b3d833 (patch) | |
tree | b1bc22b143615bbeb4f320446ed928ab0adffc48 /t | |
parent | c1d22f6b609261e5abd7381bd017773c7ae58346 (diff) | |
download | perl-d0e85dcee87ca227273fd34b9a90f68c96b3d833.tar.gz |
POSIX::strftime gets the date wrong (from John Tobey
<jtobey@epsilondev.com>)
p4raw-id: //depot/perl@5145
Diffstat (limited to 't')
-rwxr-xr-x | t/lib/posix.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/lib/posix.t b/t/lib/posix.t index 10c06becbf..abc4563e12 100755 --- a/t/lib/posix.t +++ b/t/lib/posix.t @@ -14,7 +14,7 @@ use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read strftime write); use strict subs; $| = 1; -print "1..26\n"; +print "1..27\n"; $Is_W32 = $^O eq 'MSWin32'; @@ -121,6 +121,7 @@ try_strftime(23, "Mon Mar 01 00:00:00 1999 060", 0,0,24, 28,1,99); try_strftime(24, "Mon Feb 28 00:00:00 2000 059", 0,0,0, 28,1,100); try_strftime(25, "Tue Feb 29 00:00:00 2000 060", 0,0,0, 0,2,100); try_strftime(26, "Wed Mar 01 00:00:00 2000 061", 0,0,0, 1,2,100); +try_strftime(27, "Fri Mar 31 00:00:00 2000 091", 0,0,0, 31,2,100); &POSIX::setlocale(&POSIX::LC_TIME, $lc) if $Config{d_setlocale}; $| = 0; |