Time::Piece wrong timezone?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I am on a GNU system in timezone +0100. The Time::Piece method tzoffset delivers the correct offset, but strftime does not. Are you seeing this too?

> re.pl
$ use Time::Piece qw()

$ my $t = Time::Piece->localtime
$Time_Piece1 = Mon Mar 16 01:43:48 2009;

$ $t->epoch
1237164228
$ $t->tzoffset
$Time_Seconds1 = 3600;

$ $t->strftime('%s')
1237164228
$ $t->strftime('%z')
+0000
[download]

Comment on Time::Piece wrong timezone? Download Code

Replies are listed 'Best First'.
Re: Time::Piece wrong timezone? by ig (Vicar) on Mar 16, 2009 at 02:47 UTC
I get a similar result on CentOS 5.2 with perl 5.8.8 and blead `$ perl -MTime::Piece -e '$t = Time::Piece->localtime; print $t->tzoffs +et . "\n"' 46800 $ perl -MTime::Piece -e '$t = Time::Piece->localtime; print $t->strfti +me("%z") . "\n"' +0000` [download] The following comment from Piece.xs looks relevant: /* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSI +X) * fields for which we don't have Configure support yet: * char tm_zone; -- abbreviation of timezone name long tm_gmtoff; -- offset from GMT in seconds * To workaround core dumps from the uninitialised tm_zone we get the * system to give us a reasonable struct to copy. This fix means that * strftime uses the tm_zone and tm_gmtoff values returned by * localtime(time()). That should give the desired result most of the * time. But probably not always! * * This is a temporary workaround to be removed once Configure * support is added and NETaa14816 is considered in full. * It does not address tzname aspects of NETaa14816. / [download] Update:* Changing the sense of the test on HAS_GNULIBC near the top of Piece.xs to be as follows corrects the problem on my system. I note also that this makes the sense the same as in util.c, though the content of the conditional has other differences. I am not at all certain that it is a good thing to make this change, but I will submit a bug report for someone more knowledgeable than me to have a look `#if defined(HAS_GNULIBC) # ifndef STRUCT_TM_HASZONE # define STRUCT_TM_HASZONE # else # define USE_TM_GMTOFF # endif #endif` [download]	[reply] [d/l] [select]
Re^2: Time::Piece wrong timezone? by Anonymous Monk on Mar 16, 2009 at 03:32 UTC
one more reason to stick to DateTime :)	[reply]
Re: Time::Piece wrong timezone? by Anonymous Monk on Mar 16, 2009 at 02:25 UTC
that's not perl, what is that?	[reply]
Re^2: Time::Piece wrong timezone? by codeacrobat (Chaplain) on Mar 16, 2009 at 07:00 UTC
re.pl is a modern perl interactive shell, its part of the Devel::REPL distribution on cpan. `print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});`	[reply] [d/l]