[perl #63880] Enums and Whatever stars don't play nice together in Rakudo

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

On Sat Mar 14 16:05:51 2009, masak wrote:
> <bacek> masak: bug-bug! :)
> <bacek> rakudo: say 1 < *
> <p6eval> rakudo 5b1ff9: OUTPUT«Use of uninitialized value␤0␤»
> <bacek> rakudo: enum A <a b>; say a < *
> <p6eval> rakudo 5b1ff9: OUTPUT«too few arguments passed (0) - 1 params
> expected [...]
> * masak submits

With latest Rakudo:

20:21 <@jnthn> rakudo: enum A <a b>; say (a < *).WHAT
20:21 < p6eval> rakudo f934db: OUTPUT«Block()␤»
20:21 <@jnthn> rakudo: enum A <a b>; say (a < *).(-1)
20:22 <@jnthn> rakudo: enum A <a b>; say (a < *).(2)
20:22 < p6eval> rakudo f934db: OUTPUT«0␤»
20:22 < p6eval> rakudo f934db: OUTPUT«1␤»
20:22 <@jnthn> rakudo: 1 < *
20:22 < p6eval> rakudo f934db:  ( no output )
20:22 <@jnthn> rakudo: enum A <a b>; a < *
20:23 < p6eval> rakudo f934db:  ( no output )
20:23 <@jnthn> OK, I think 63880 is ok

So enums and whatever stars play together OK now (note that this
generates a closure { a < $_ }.

Assigning to moritz++ for tests.

Thanks,

Jonathan