[perl5.git] / t / lib / sample-tests / die_head_end

print <<DUMMY_TEST;
ok 1
ok 2
ok 3
ok 4
DUMMY_TEST

use if $^O eq 'VMS', vmsish => 'hushed';
exit 1;
Commit	Line	Data
356733da MS	1	print <<DUMMY_TEST;
	2	ok 1
	3	ok 2
	4	ok 3
	5	ok 4
	6	DUMMY_TEST
	7
c0bb2de7	8	use if $^O eq 'VMS', vmsish => 'hushed';
356733da	9	exit 1;