t/op/time_loop.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!perl -w

# d95a2ea538e6c332f36c34ca45b78d6ad93c3a1f allowed times greater than
# 2**63 to be handed to gm/localtime() which caused an internal overflow
# and an excessively long loop.  Test this does not happen.

use strict;

BEGIN { require './test.pl'; }

plan tests => 2;
watchdog(2);

local $SIG{__WARN__} = sub {};
is gmtime(2**69),    undef;
is localtime(2**69), undef;