[perl5.git] / t / op / time_loop.t

#!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;
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;