From: Ken Fox [mailto:[EMAIL PROTECTED]]
> 
> > You forgot the other example that someone raised:
> > 
> > { my $x = 'X'; *h = sub { $H = sub {pr $h} }}
> > h(); $H->();
> > 
> > Which prints:
> > 
> > Z
> 
> Did you mean this?
> 
> { my $z = 'Z'; *h = sub { $H = sub {pr $z} }}
> h(); $H->();
> 
> Then I agree.

Yes, my example was one cut and paste too early...

;)

Reply via email to