[perl #57766] Unfruitful interaction between regexp smartmatch and statement-modifying 'while'

[Carl Mäsak]

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


r30155:
$ ./perl6 -e '"a" ~~ /b/' # works
$  ./perl6 -e 'while "a" ~~ /b/ {}' # works
$ ./perl6 -e '1 while "a" ~~ "b"' # works
$ ./perl6 -e '1 if "a" ~~ /b/' # works

$ ./perl6 -e '1 while "a" ~~ /b/' # strange error
Lexical '$/' not found
[...]