# New Ticket Created by Zoffix Znet
# Please include the string: [perl #131341]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131341 >
This errors out:
<Zoffix__> m: my $n = 'foo'; my $m = :42foo; say $m«$n».[0]
<camelia> rakudo-moar 601cdb: OUTPUT: «===SORRY!=== Error while compiling
<tmp>Unable to parse quote-words subscript; couldn't find right double-angle
quoteat <tmp>:1------> y $n = 'foo'; my $m = :42foo; $m«$n».[0]⏏<EOL>
expecting any of: statement en…»
<Zoffix__> m: my $n = 'foo'; my $m = :42foo; say $m<<$n>>.[0]
<camelia> rakudo-moar 601cdb: OUTPUT: «===SORRY!=== Error while compiling
<tmp>Unable to parse quote-words subscript; couldn't find right double-angle
quoteat <tmp>:1------> 'foo'; my $m = :42foo; say $m<<$n>>.[0]⏏<EOL>
expecting any of: statement end…»
I'd expect it to work the same as:
<Zoffix__> m: my $n = 'foo'; my $m = :42foo; say ($m«$n»).[0]
<camelia> rakudo-moar 601cdb: OUTPUT: «42»
<Zoffix__> m: my $n = 'foo'; my $m = :42foo; say $m{$n}.[0]
<camelia> rakudo-moar 601cdb: OUTPUT: «42»
<Zoffix__> m: my $n = 'foo'; my $m = :42foo; say $m<foo>.[0]
<camelia> rakudo-moar 601cdb: OUTPUT: «42»