[perl #125477] slight given/when bug

[via RT]

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


In the following code fragment, the die() message has two spaces after 
'block'. I'm guessing that the name 'default' is missing here, and the 
sentence should read 'in block default at /home/jgoff/bug.t:9' as all of 
the other stacktrace lines have names in this location.

--cut here--
use v6;

my $t = 'fallthru';
given $t {
   when 'foo' {
     say "doing stuff";
   }
   default {
     die "falling through";
   }
}
--cut here--

--cut here--
perl6 ~/bug.t
falling through
   in block  at /home/jgoff/bug.t:9
--cut here--