1#!perl -w 2 3# d95a2ea538e6c332f36c34ca45b78d6ad93c3a1f allowed times greater than 4# 2**63 to be handed to gm/localtime() which caused an internal overflow 5# and an excessively long loop. Test this does not happen. 6 7use strict; 8 9BEGIN { require './test.pl'; } 10 11plan tests => 2; 12watchdog(2); 13 14local $SIG{__WARN__} = sub {}; 15is gmtime(2**69), undef; 16is localtime(2**69), undef; 17