in reply to Bug in Time::Local?

Use the full year, 

$ perl -MTime::Local -e'print timelocal(0, 0, 0, 25, 11, 1948),$/'
-663274800
$

[download]
Note that the Time::Local docs warn that not all OS support negative epoch times.

Update: fglock, I'm in EDT TZ 5 hours behind GMT in November.

After Compline,
Zaxo

Replies are listed 'Best First'.
Re^2: Bug in Time::Local?
by fglock (Vicar) on Jul 02, 2004 at 19:28 UTC

    I've got different results - there is a difference of 5 hours from yours. I'm trying to figure out why.

    perl -MDateTime -e ' print DateTime->new(year=>1970)->epoch, $/ '
0

perl -MDateTime -e ' print DateTime->new(year=>1948,month=>12,day=>25)
+->epoch, $/ '
-663292800

perl -e 'print +( 663292800 - 663274800 )/3600 , $/ '
5

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom