Date :: ICal之谜（小时不返回正确的值

Question

以下是代码：

$ical = Date::ICal->new( year => 1964, month => 10, day => 16, 
                             hour => 20, min => 12, sec => 47, 
                             #tz => '0530' 
                        );

ok( defined $ical,            'new() returned something' );
ok( $ical->isa('Date::ICal'), "  and it's the right class" );

is( $ical->sec,     47,       '  sec()'   );
is( $ical->min,     12,       '  min()'   );    
is( $ical->hour,    20,       '  hour()'  );
is( $ical->day,     16,       '  day()'   );
is( $ical->month,   10,       '  month()' );
is( $ical->year,    1964,     '  year()'  );

print "hour = " . $ical->hour . "\n";

这是输出：

1..8
ok 1 - new() returned something
ok 2 -   and it's the right class
ok 3 -   sec()
ok 4 -   min()
not ok 5 -   hour()
#   Failed test '  hour()'
#   at ./test_more.pl line 17.
#          got: '0'
#     expected: '20'
not ok 6 -   day()
#   Failed test '  day()'
#   at ./test_more.pl line 18.
#          got: '17'
#     expected: '16'
ok 7 -   month()
ok 8 -   year()
hour = 0
# Looks like you failed 2 tests of 8.

是什么给了????

Answer 1

是时区问题吗？你正好落后于UTC 4小时吗？