Commit | Line | Data |
---|---|---|
fc003d4b MS |
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; |