[perl #81562] method does not die for unexpected parameter

[via RT]

# New Ticket Created by  Hiroki Horiuchi 
# Please include the string:  [perl #81562]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81562 >


#!/usr/bin/env perl6

# rakudo version: f99d081ea493399656a66f766e2c4d3fff57f548
# parrot version: e4bebcddff747fcfc156310334b78c309add17b2
# platform: Debian GNU/Linux squeeze i386
# compiler: gcc version 4.4.5 (Debian 4.4.5-8)

# In this test case, last two tests fail.

use v6;
use Test;

sub abc(:$x!)
{
}

class C
{
         method new(:$x!)
         {
                 self.bless(*);
         }

         method m(:$x!)
         {
         }
}

abc(:x<0>);
C.new(:x<0>);
C.new(:x<0>).m(:x<0>);

{
         my $expected = q{Required named parameter 'x' not passed};

         try { abc(); };
         is $!, $expected;

         try { C.new(); };
         is $!, $expected;

         try { C.new(:x<0>).m(); };
         is $!, $expected;
}
{
         my $expected = q{Unexpected named parameter 'y' passed};

         try { abc(:x<0>, :y<0>); };
         is $!, $expected;

         try { C.new(:x<0>, :y<0>); };
         is $!, $expected;

         try { C.new(:x<0>).m(:x<0>, :y<0>); };
         is $!, $expected;
}