And what about: foo();
for 1..3 { my $x ::= 3; sub foo { say ++$x }; say ++$x }; BEGIN { foo(); foo(); } or worse: sub moose { my $x = 3; sub foo { say ++$x; } BEGIN { foo(); moose(); foo(); } foo(); moose(); foo(); *foam oozes out of ears* -- Yuval Kogman <[EMAIL PROTECTED]> http://nothingmuch.woobling.org 0xEBD27418
pgpQTxvdv3gAY.pgp
Description: PGP signature