[perl #99912] [BUG] A regex match in a 'when' clause doesn't set $/ properly in Rakudo

[Carl Mäsak]

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


<japhb> rakudo: given "a" { if /^(a)$/ { say $0 } }
<p6eval> rakudo aed9fe: OUTPUT«a␤»
<japhb> rakudo: given "a" { when /^(a)$/ { say $0 } }
<p6eval> rakudo aed9fe: OUTPUT«Nil␤»
<japhb> ^^ known?
<masak> b: given "a" { when /^(a)$/ { say $0 } }
<p6eval> b 1b7dd1: OUTPUT«a␤»
<masak> japhb: probably part of the whole regexes not being quite done
in nom yet thing.
<japhb> masak, nodnod.  Strange effect though.  I wouldn't expect a
difference between those two.
<masak> indeed.
* masak submits rakudobug