# New Ticket Created by publiustemp-perl6compil...@yahoo.com
# Please include the string: [perl #61914]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61914 >
This works fine:
class Foo {
has ($.this,
$.that,
);
}
my Foo $foo .= new( this => 3, that => 4 );
say $foo.this;
However, any whitespace after the opening paren causes a parse failure:
class Foo {
has ( $.this,
$.that,
);
}
my Foo $foo .= new( this => 3, that => 4 );
say $foo.this;
Unable to parse declarator; couldn't find final ')' at line 4, near "$.this, \n
"
current instr.: 'parrot;PGE;Util;die' pc 129
(runtime/parrot/library/PGE/Util.pir:83)
called from Sub 'parrot;Perl6;Grammar;declarator' pc 81845
(src/gen_grammar.pir:23527)
called from Sub 'parrot;Perl6;Grammar;scoped' pc 82534
(src/gen_grammar.pir:23780)
called from Sub 'parrot;Perl6;Grammar;scope_declarator' pc 83560
(src/gen_grammar.pir:24183)
called from Sub 'parrot;Perl6;Grammar;noun' pc 70435 (src/gen_grammar.pir:19268)
called from Sub 'parrot;Perl6;Grammar;expect_term' pc 65600
(src/gen_grammar.pir:17435)
called from Sub 'parrot;PGE;OPTable;parse' pc 1988
(compilers/pge/PGE/OPTable.pir:566)
called from Sub 'parrot;Perl6;Grammar;statement' pc 29622
(src/gen_grammar.pir:3674)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 27358
(src/gen_grammar.pir:2799)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 24895
(src/gen_grammar.pir:1841)
called from Sub 'parrot;Perl6;Grammar;block' pc 26388 (src/gen_grammar.pir:2419)
called from Sub 'parrot;Perl6;Grammar;package_block' pc 79263
(src/gen_grammar.pir:22572)
called from Sub 'parrot;Perl6;Grammar;package_def' pc 77242
(src/gen_grammar.pir:21820)
called from Sub 'parrot;Perl6;Grammar;package_declarator' pc 75576
(src/gen_grammar.pir:21207)
called from Sub 'parrot;Perl6;Grammar;noun' pc 70330 (src/gen_grammar.pir:19233)
called from Sub 'parrot;Perl6;Grammar;expect_term' pc 65600
(src/gen_grammar.pir:17435)
called from Sub 'parrot;PGE;OPTable;parse' pc 1988
(compilers/pge/PGE/OPTable.pir:566)
called from Sub 'parrot;Perl6;Grammar;statement' pc 29622
(src/gen_grammar.pir:3674)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 27358
(src/gen_grammar.pir:2799)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 24895
(src/gen_grammaruse v6;
This is r34828
$ uname -a
Darwin curtis-poes-computer-3.local 9.5.1 Darwin Kernel Version 9.5.1: Fri Sep
19 16:19:24 PDT 2008; root:xnu-1228.8.30~1/RELEASE_I386 i386
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Tech blog - http://use.perl.org/~Ovid/journal/
Twitter - http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6
