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