Hello monks,
I may have found a bug but don't know how to tell...
With perl 5.8.4, I run this code and get:
use Time::Local;
my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2012);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";
hour 2 vs 2
If I run this identical code under perl 5.8.7, it outputs:
use Time::Local;
my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2012);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";
hour 2 vs 3
If I run this 2011 modified code under 5.8.7, it outputs:
use Time::Local;
my $hour= 2;
my $test = timelocal(0,0,$hour,1,3,2011);
my @test2 = localtime($test);
print "hour $hour vs $test2[2]\n";
hour 2 vs 2
Am I going crazy? What is going on?!? AHhhh!
-Alan