[perl #74622] GatherIterator.perl flattens output sometimes.

2012-05-30 Thread Matthew Wilson via RT
different behavior for the first one: 13:34 < diakopter> r: say ((1,2) X ).perl 13:34 <+p6eval> rakudo e2d876: OUTPUT«((ListIter.new(),), (ListIter.new(),), (ListIter.new(),), (ListIter.new(),)).list␤»

[perl #78276] [BUG] Null PMC access when calling a multi sub with a parameter narrowed by a subtype that does a regex match in Rakudo

2016-04-07 Thread Matthew Wilson via RT
The original code works now 12:09 m: subset Greeting of Str where { /:i ^oh \s+ \w+ '!'?$/ }; subset LolGreeting of Str where { .words[1].lc eq 'hai' }; multi detect(Str) { "not a greeting" }; multi detect(Greeting) { "regular greeting" };

[perl #81136] Capture reference doesn't work in lookahead assertions

2016-04-07 Thread Matthew Wilson via RT
seems fixed to me 12:12 m: grammar test { token a { a }; token b { b }; token TOP { > };}; test.parse("abc").say 12:12 rakudo-moar 61d231: OUTPUT«Nil␤»

[perl #78870] [BUG] Wrapping a detached method breaks method deferral in Rakudo

2016-04-07 Thread Matthew Wilson via RT
new behavior: 12:16 rakudo: class A { method foo { say "A" } }; class B is A { method foo { say "B"; nextsame } }; my &x = B.WALK(:name)[0]; &x.wrap: { say "wrap"; nextsame }; x(B.new) 12:16 rakudo-moar 61d231: OUTPUT«wrap␤B␤Attempt to ret

[perl #78278] [BUG] The optional $_ seems to default to $CALLER::_, not $OUTER::_ in Rakudo

2016-04-07 Thread Matthew Wilson via RT
new behavior: 12:18 m: my $b; { my $_ = 5; $b = { .say } }; $_ = 42; $b() 12:18 rakudo-moar 61d231: OUTPUT«Potential difficulties:␤ Redeclaration of symbol $_␤at /tmp/7gI9FhwrCH:1␤--> my $b; { my $_⏏ = 5; $b = { .say } }; $_ = 42; $b()␤42␤»

[perl #79294] [BUG] $*PERL should be version of Perl, not version of Rakudo in Rakudo

2016-04-07 Thread Matthew Wilson via RT
resolved 12:25 m: say $*PERL 12:25 rakudo-moar 61d231: OUTPUT«Perl 6 (6.c)␤»

[perl #81974] [BUG] LTA error message when something isn't a number in a sequence operator in Rakudo

2016-04-07 Thread Matthew Wilson via RT
resolved 12:27 m: (0, {last if $^a==$^b; (1..5).pick} ... *).perl.say 12:27 rakudo-moar 61d231: OUTPUT«Cannot .elems a lazy list␤ in block at /tmp/s8pj85e1Wc line 1␤␤Actually thrown at:␤ in block at /tmp/s8pj85e1Wc line 1␤␤»

[perl #109586] .pick on a large range needs more entropy

2016-04-07 Thread Matthew Wilson via RT
12:52 < diakopter> m: say (^2**64).pick.fmt('%64b') 12:52 <+camelia> rakudo-moar 61d231: OUTPUT« 111001010001011100011101000␤» 12:52 < diakopter> m: say (^2**64).pick.fmt('%64b') 12:52 <+camelia> rakudo-moar 61d231: OUTPUT«010001

[perl #114554] [BUG] Definition of zero-length postfix operator wrongly allowed in Rakudo

2016-04-07 Thread Matthew Wilson via RT
new behavior: 13:30 m: sub postfix:{}($a) { say "$a bracey brace" }; 42{} 13:30 rakudo-moar 61d231: OUTPUT«===SORRY!===␤Internal error: find_var_decl could not find $_␤»

[perl #114672] [BUG] LTA error message: wrong class reported in non-existent attribute error in Rakudo

2016-04-07 Thread Matthew Wilson via RT
Moar still segfaults: 13:35 m: class A {}; class B is A { has $!x = 5; our method foo(A:) { say $!x } }; &B::foo(A.new) 13:36 rakudo-moar 61d231: OUTPUT«(signal SEGV)»

[perl #115566] [BUG] Variables declared in quasi blocks don't work in Rakudo

2016-04-07 Thread Matthew Wilson via RT
new behavior: 13:48 m: use experimental :macros; macro foo { quasi { my $a = "OH HAI"; say $a } }; foo 13:48 rakudo-moar 61d231: OUTPUT«===SORRY!===␤Optimizer: No lexical $a found␤»

[perl #116423] [BUG] say 1.0000000000000000000000000000001 makes wrong denominator

2016-04-07 Thread Matthew Wilson via RT
13:56 < diakopter> m: say 1.001 # Rat fail? 13:56 <+camelia> rakudo-moar 61d231: OUTPUT«1.3641037050347531␤» 13:57 < psch> m: say 1.001.WHAT 13:57 <+camelia> rakudo-moar 61d231: OUTPUT«(Rat)␤» 13:57 < psch> m: say 1.000