# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #100650]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=100650 >
<flussence> I broke nom last night!
<flussence> nom: say ('aabaa' ~~ /\N+ b/).perl
<p6eval> nom 834d9d: OUTPUT«Match.perl(orig => "aabaa", from => 0, to
=> 3, ast => Mu, list => ().list, hash => EnumMap.new())»
<flussence> or I did, somehow
* moritz doesn't see the brokenness offhand
<flussence> nom: say ('aaaaabaaaaa' ~~ /^(<[a..z]>*) b/).perl;
<p6eval> nom 834d9d: OUTPUT«Match.perl(orig => "aaaaabaaaaa", from =>
11, to => -3, ast => Mu, list => ().list, hash => EnumMap.new())»
<masak> huh!
<masak> that's... wrong.
(Note that the match fails, hence the 'to => -3'. There's clearly a
way for the regex to match, namely to map 'aaaaa' to the capturing
group and then match the 'b' literally.)
<flussence> it seems to not work with anything resembling a character class
<flussence> nom: say ('aaaaabaaaaa' ~~ /^(\N*) b/).perl;
<p6eval> nom 834d9d: OUTPUT«Match.perl(orig => "aaaaabaaaaa", from =>
11, to => -3, ast => Mu, list => ().list, hash => EnumMap.new())»
<moritz> flussence: it seems that the combincation of * and captures
somehow breaks
<flussence> nom: say ('aaaaabaaaaa' ~~ /(\N*) b/).perl;
<p6eval> nom 834d9d: OUTPUT«Match.perl(orig => "aaaaabaaaaa", from =>
11, to => -3, ast => Mu, list => ().list, hash => EnumMap.new())»
<flussence> hm
<moritz> nom: say so ('aaaaabaaaaa' ~~ /^(\N*) b/).perl;
<p6eval> nom 834d9d: OUTPUT«Bool::True»
<moritz> nom: say so ('aaaaabaaaaa' ~~ /^(\N*) b/)
<p6eval> nom 834d9d: OUTPUT«Bool::False»
<masak> moritz: is there an RT ticket for that yet?
<moritz> masak: I'm not aware of any
* masak submits rakudobug
