On Tuesday 02 July 2002 11:15 am, [EMAIL PROTECTED] wrote:
> On Tue, Jul 02, 2002 at 10:36:45AM -0700, Erik Steven Harrison wrote:
> > my $a = 'foo';
> >
> > pass_by_name ( sub { print $a} );
> >
> > sub pass_by_name {
> > my $a = 'bar';
> > &@_[0];
> > }
Perhaps a pragma which does:
my %MY := caller.{MY}.
for instance:
pass_by_name { sub { use scope 'caller'; print $a } }
Perhaps something simpler which implies the same thing?
sub is iterator { print $a }
I'm just shooting in the dark, good luck. :)
Ashley Winters
