[perl #129346] [BUG] Whatever being called on where-blocked subroutine cannot handle the sigilless values correctly

[via RT]

# New Ticket Created by  Itsuki Toyota 
# Please include the string:  [perl #129346]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=129346 >


See the following results

$ perl6 -e 'sub foo(\a where { *.WHAT === Int } ) { say "Hello"; }; foo(10);'
Constraint type check failed for parameter 'a'
  in sub foo at -e line 1
  in block <unit> at -e line 1

$ perl6 -e 'sub foo(\a where -> \e { \e.WHAT === Int } ) { say "Hello"; }; 
foo(10);'
Constraint type check failed for parameter 'a'
  in sub foo at -e line 1
  in block <unit> at -e line 1

$ perl6 -e 'sub foo(\a where -> \e { e.WHAT === Int } ) { say "Hello"; }; 
foo(10);'
Hello

It seems that "Whatever *" cannot handle sigilless values correctly.
I think that the 1st example should return the same result as the 3rd example.



$ perl6 --version
This is Rakudo version 2016.08.1-202-g78393dd built on MoarVM version 
2016.08-47-g2eedba8
implementing Perl 6.c.