From: Ken Fox [mailto:kfox@vulpes.com] > > > 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... ;)Thread Previous | Thread Next