[perl5.git] / lib / perl5db / t / lvalue-bug

#!/usr/bin/perl
#
# This code is used by lib/perl5db.t !!!
#

my $i;
sub foo () : lvalue { $i }
foo = 1;
print defined foo ? "foo is defined" : "foo is still undef", "\n";
Commit	Line	Data
6fd69bbe FR	1	#!/usr/bin/perl
	2	#
	3	# This code is used by lib/perl5db.t !!!
	4	#
	5
	6	my $i;
	7	sub foo () : lvalue { $i }
	8	foo = 1;
	9	print defined foo ? "foo is defined" : "foo is still undef", "\n";