Devel::PPPort: Fix D_PPP_FIX_UTF8_ERRSV macro
[perl.git] / t / op / time_loop.t
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
7 use strict;
8
9 BEGIN { require './test.pl'; }
10
11 plan tests => 2;
12 watchdog(2);
13
14 local $SIG{__WARN__} = sub {};
15 is gmtime(2**69),    undef;
16 is localtime(2**69), undef;