$r = do {my @a; \$#a}; $$r = 503 # is also naughty and now warns
authorNicholas Clark <nick@ccl4.org>
Thu, 9 Jun 2005 21:01:42 +0000 (21:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 9 Jun 2005 21:01:42 +0000 (21:01 +0000)
commit1b20cd17751091e44beebad6f2f7034a08eaa442
tree38ec17ef74f8777c4538d150486291149faaabc5
parent83bf042f79af6208af0620b081ee65543ecfed9f
$r = do {my @a; \$#a}; $$r = 503 # is also naughty and now warns

p4raw-id: //depot/perl@24784
av.c
pod/perldiag.pod
t/op/array.t