# 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 
quote␤at <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 
quote␤at <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␤»

Reply via email to