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;