Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (10 sloc) 121 Bytes
use diagnostics;
sub foo {
my $lex = $_[0];
my $bar = sub {
print "$lex\n";
};
$bar->();
}
foo(2);
foo(3);