http://qs321.pair.com?node_id=209369


in reply to Re: Little Perl Mysteries: what's your answer?
in thread Little Perl Mysteries: what's your answer?

and the proof is: 
c:\>perl -MO=Deparse -e "sub foo(){2};*::foo=sub(){3};print foo();"
sub foo () {
    2;
}
*foo = sub () {
    3;
}
;
print 2;
-e syntax OK

[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris

In Section Meditations