# New Ticket Created by Moritz Lenz
# Please include the string: [perl #75434]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75434 >
Works fine in mainline code:
18:26 <@moritz_> rakudo: say <a b c>».uc
18:26 < p6eval> rakudo bbb336: OUTPUT«ABC»
but
# file Foo.pm:
module Foo;
sub f is export {
<a b c>».uc;
}
# and then on the command line:
./perl6 -e 'use Foo; f()'
Unable to parse blockoid, couldn't find final '}' at line 3
current instr.: 'perl6;Regex;Cursor;FAILGOAL' pc 1989
(ext/nqp-rx/src/stage0/Regex-s0.pir:1052)
called from Sub 'perl6;Perl6;Grammar;blockoid' pc 60338
(src/gen/perl6-grammar.pir:4918)
called from Sub 'perl6;Perl6;Grammar;routine_def' pc 123838
(src/gen/perl6-grammar.pir:21493)
called from Sub 'perl6;Perl6;Grammar;routine_declarator:sym<sub>' pc
122677 (src/gen/perl6-grammar.pir:21256)
+ plus a rather long backtrace.
(Same for loading the module from another script file, the -e isn't
crucial for the bug to appear).
