[perl #57652] [BUG] successfull 'when' does not skip the following tests.

[[EMAIL PROTECTED] (via RT)]

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


Yesterday, I downloaded and compiled perl6 of parrot-0.6.4.
Testing some basic perl6 features, I found this example:

my xyz="spot";
given $xyz {
   when 'spot'     { say 'is "spot"';        }
   when /spot/     { say 'contains "spot"';  }
   default         { say 'unknown';          }
}

This should print 'is "spot"'.

But, in fact, it prints all three lines:
is "spot"
contains "spot"
unknown

I hope that this can be fixed easily.