Vincent Foley wrote:
> Hello everyone,
>
> I was toying around with Pugs and I tried the following Perl 5 list
> assignment
>
> my ($a, undef, $b) = 1..3;
>
> Which gave me the following error message:
>
> Internal error while running expression:
> ***
> Unexpected ","
> expecting word character, "\\", ":", "*" or parameter name
> at <interactive> line 1, column 14
For reference, this sort of operation works if you write it on two
lines, like:
my ($a, $b);
($a, undef, $b) = 1..3;
say "$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;
