# New Ticket Created by equinox
# Please include the string: [perl #120575]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=120575 >
HI All,
I found this
if ($token ~~ /\n/)
{
#" "~~ /s/; # because perl6 buggy. this restores the start of regex
search pos to 0.
# if you uncomment the previous line, it start working properly
# this will not search in $token from index 0... is that correct?
while ($token ~~
m:c/$<a>=(.*?\n)\s*$<b>=(\S\N*)||$<c>=(.*?\n)\s*$||$<d>=(.+)/)
{
}
}
Marton
