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
t;$a is 1 and $b is 3";
I'll look around in the source and see if I can make this work like
perl5 (unless that's a bad idea for some reason).
Regards,
Jonathan Rockway
--
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;
Ovid wrote:
(reversed the message a bit)
> is 'b', any('a' .. 'h'), 'junctions should work';
This looks like a Test "bug"; it's doing something like:
is 'b', 'a' # not ok
is 'b', 'b' # ok
is 'b', 'c' # not ok
...
If you write:
ok 'b' === any('a'..'h')
The result is one passing
