Mark J. Reed wrote: > I distinctly recall having to do things like (my $a, undef, my $b) to > avoid errors because you can't assign to undef. Maybe I'm just > hallucinating.
Maybe :) $ perl -Mstrict -e 'my ($a, undef, $b) = 1..3; print "$a $b\n";' 1 3 This works as far back as v5.6.0 (which is the oldest I have around). -- package JAPH;use Catalyst qw/-Debug/;($;=JAPH)->config(name => do { $,.=reverse qw[Jonathan tsu rehton lre rekca Rockway][$_].[split //, ";$;"]->[$_].q; ;for 1..4;$,=~s;^.;;;$,});$;->setup;