[perl #69334] [BUG] The class isn't tested before where clauses in subtypes in Rakudo

[jn...@jnthn.net via RT]

On Wed Sep 23 14:00:34 2009, thewall...@gmail.com wrote:
> [13:39] <quietfanatic> rakudo: class Y {has $.z}; subset X of Y where
{.z ==
> 0}; my $q = 4; say $q ~~ X;
> [13:39] <+p6eval> rakudo 0eaf62: OUTPUT«Method 'z' not found for
invocant of
> class 'Int'␤»
> [13:40] <quietfanatic> It checks the where {} before checking that
it's a Y.
> [13:40] <quietfanatic> Bug?
> [13:41] <@moritz_> IMHO yes
> [13:42] <@moritz_> please submit

Aye, it was a bug. Fixed now.

> class Y {has $.z}; subset X of Y where {.z ==0};
> my $q = 4; say $q ~~ X;
0
> my $q = 4; say Y.new ~~ X;
1
> my $q = 4; say Y.new(z => 42) ~~ X;
0

And given to moritz++ for spectests.

Thanks,

Jonathan