[perl #70013] given / if match will not set $/ if $_ matched on implicitly

[via RT]

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


given 'ick' {
    if $_ ~~ m/(i)/ {
        say "if   <explicit> should say [i]" ~ (($/ eq 'i') ?? '' !! ", but 
says") ~ ": [$/]"
    }
    if       m/(c)/ {
        say "if   <implicit> should say [c]" ~ (($/ eq 'c') ?? '' !! ", but 
says") ~ ": [$/]"
    }
    when     m/(k)/ {
        say "when <implicit> should say [k]" ~ (($/ eq 'k') ?? '' !! ", but 
says") ~ ": [$/]"
    }
}

=begin output

if   <explicit> should say [i]: [i]
if   <implicit> should say [c], but says: [i]
when <implicit> should say [k]: [k]

=end output