# New Ticket Created by Ira Byerly # Please include the string: [perl #74526] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=74526 >
Hello,
I noticed finanalyst having problems with Rakudo on #perl6 on 2010-04-20:
05:36 finanalyst alpha: my @a = 1,2,3,4; my %h; %...@a[0]} = @a[1 ..^ +...@a];
%h.perl.say
05:36 p6eval alpha 30e0ed: OUTPUT«{"1" => [2, 3, 4]}»
05:36 finanalyst rakudo: my @a = 1,2,3,4; my %h; %...@a[0]} = @a[1 ..^ +...@a];
%h.perl.say
05:36 p6eval rakudo b05155: OUTPUT«{"1" => Seq.new()}»
The fix was just to copy the perl method from Array.pm to Seq.pm (and change
the output from square brackets to parentheses.)
I also remembered how many times I have been annoyed with Rakudo going into
an infinite loop when trying to cope with Iterator.perl. For example,
my $a=(1,1,* + * ... *); $a.perl.say;
There was some discussion around 10:54 UTC 2010-04-20 on #perl6 about the
Iterator.perl case, most of which doesn't lend itself to implementation
without drastic work on the compiler (the ability to serialize code and have
iterators be able to memoize and unget their values.) To make life somewhat
more tolerable before utopia arrives, I took one of TimToady's many
suggestions and cut the output short at forty entries.
I include some comments in Iterator.pm to indicate that the code is a
placeholder for future, better code; you might want to edit that for style.
Please let me know if you have any questions or suggestions.
Best regards,
Ira Kevin Byerly
quester_ on #perl6
quester on perlmonks
quester...@gmail.com
0001-Fix-Seq.perl-to-not-say-Seq.new-.-Interim-fix-for-It.patch
Description: Binary data
