Re: How much do we close over?

[Dave Mitchell]

On Sun, Jun 12, 2005 at 06:22:22PM -0500, Rod Adams wrote:
> Well, you could always do something like:
> 
>    sub foo { my $x = 1; return sub {my $x := $OUTER::x; eval $^codestring} }

In perl5, that would just be

    sub foo { my $x = 1; return sub { $x ; eval $_[0]} }

-- 
You live and learn (although usually you just live).