Perl
PerlDay 20

見たくないもの


Version 1.1901

見たくないもの!


1.1901

$ perl -MTime::Local -le 'print $Time::Local::VERSION'

1.1901
$ perl -MTime::Local -le 'print timelocal(59, 59, 23, 16, 0, 2038)'
2147266799
$ perl -MTime::Local -le 'print timelocal(00, 00, 00, 17, 0, 2038)'
Cannot handle date (0, 0, 0, 17, 0, 2038) at -e line 1


Version 1.2300


1.2300

$ perl -MTime::Local -le 'print $Time::Local::VERSION'

1.2300
$ perl -MTime::Local -le 'print timelocal(59, 59, 23, 16, 0, 2038)'
2147266799
$ perl -MTime::Local -le 'print timelocal(00, 00, 00, 17, 0, 2038)'
2147266800

バージョンアップは忘れずに!