In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/28c3d5f4a254cce07b783305aa5f3a842a9aecbc?hp=6609e0408cfa30e0d5c739e4c818f8591c88c0bc>
- Log ----------------------------------------------------------------- commit 28c3d5f4a254cce07b783305aa5f3a842a9aecbc Author: Nicholas Clark <[email protected]> Date: Sun Oct 18 17:41:19 2009 +0100 Use gmtime() instead of localtime(), as timezones hinder testing strtime(). (Specifically negative timezones on operating systems without tzset(). Coming from Washington State, you would have thought that they would have thought of this.) ----------------------------------------------------------------------- Summary of changes: ext/POSIX/t/time.t | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t index c349646..01ce87f 100644 --- a/ext/POSIX/t/time.t +++ b/ext/POSIX/t/time.t @@ -39,7 +39,7 @@ my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C: $!"; my $jan_16 = 15 * 86400; is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", localtime($jan_16)), "get ctime() equal to strftime()"); -is(strftime("%Y\x{5e74}%m\x{6708}%d\x{65e5}", localtime($jan_16)), +is(strftime("%Y\x{5e74}%m\x{6708}%d\x{65e5}", gmtime($jan_16)), "1970\x{5e74}01\x{6708}16\x{65e5}", "strftime() can handle unicode chars in the format string"); -- Perl5 Master Repository
