DB<35> sub context { local $\="\n";print wantarray ? "list" : define +d wantarray ? "scalar" : "void";() } DB<36> x [ ($a= context), (context) ] scalar list 0 ARRAY(0x3466930) 0 undef DB<37>
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice
In reply to Re^7: shift on empty array in list context broken (show context)
by LanX
in thread shift on empty array in list context broken
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |