[perl #117763] [BUG] Internal error talking about coroutines when combining recursion and gather in Rakudo

2015-06-19 Thread Christian Bartolomaeus via RT
I tried the evaluation from this bug report and didn't get that internal error anymore. There is still a type check error, though (which looks plausible to me): $ perl6-m -e 'sub p(*@l) { gather { if @l == 1 { take @l } else { @l.shift; for p(@l) -> @p {} } } }; say p 1..4' Type check failed in

[perl #109322] [BUG] Lexical weirdness from blocks inside re-entrant subs in Rakudo

2015-06-19 Thread Carl Mäsak via RT
A bit late to the game, but... here's a shorter version: m: my $y = 1; sub foo($x) { $y-- && foo("z"); { say $x } }; foo("x") rakudo-moar d179b4: OUTPUT«z␤z␤» again, should say "z␤x␤" * masak adds the example to RT #109322

[perl #125440] [BUG] Indirect object colon doesn't parse just before EOF in Rakudo

2015-06-19 Thread Carl Mäsak
# New Ticket Created by "Carl Mäsak" # Please include the string: [perl #125440] # in the subject line of all future correspondence about this issue. # https://rt.perl.org/Ticket/Display.html?id=125440 > Last question (I hope) - Is there something like indirect object syntax that allows one

[perl #125434] Variable lives outside of loop's scope

2015-06-19 Thread via RT
# New Ticket Created by Dagur # Please include the string: [perl #125434] # in the subject line of all future correspondence about this issue. # https://rt.perl.org/Ticket/Display.html?id=125434 > The following code: loop (my $i = 0;;) { } loop (my $i = 0;;) { } Gives the following error: P