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