path: root/gnu/usr.bin/perl/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";