[perl5.git] / t / comp / form_scope.t

#!./perl
#
# Tests bug #22977.  Test case from Dave Mitchell.

print "1..2\n";

sub f ($);
sub f ($) {
my $test = $_[0];
write;
format STDOUT =
ok @<<<<<<<
$test
.
}

f(1);
f(2);
Commit	Line	Data
421f30ed Z	1	#!./perl
	2	#
	3	# Tests bug #22977. Test case from Dave Mitchell.
	4
	5	print "1..2\n";
	6
	7	sub f ($);
	8	sub f ($) {
	9	my $test = $_[0];
	10	write;
	11	format STDOUT =
	12	ok @<<<<<<<
	13	$test
	14	.
	15	}
	16
	17	f(1);
	18	f(2);