Select Code to Download

$ 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

/* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSI
+X)
 * fields for which we don't have Configure support yet:
...
 * support is added and NETaa14816 is considered in full.
 * It does not address tzname aspects of NETaa14816.
 */

#if defined(HAS_GNULIBC)
# ifndef STRUCT_TM_HASZONE
...
#    define USE_TM_GMTOFF
# endif
#endif