# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #73352]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=73352 >


Rakudo 2d9808d19ba45c09f61a4c6fc4b4b7159ea760cc:

$ cat foo.pl
my $x;
so $x = 1;

$ ./perl6 foo.pl
Cannot assign to readonly value
current instr.: '&die' pc 16799 (src/builtins/Junction.pir:347)
called from Sub '&infix:<=>' pc 16623 (src/builtins/Junction.pir:228)
called from Sub '_block14' pc 29 (EVAL_1:0)
called from Sub '!UNIT_START' pc 1188 (src/glue/run.pir:23)
called from Sub 'perl6;PCT;HLLCompiler;eval' pc -1 ((unknown file):-1)
called from Sub 'perl6;PCT;HLLCompiler;evalfiles' pc 1303
(compilers/pct/src/PCT/HLLCompiler.pir:707)
called from Sub 'perl6;PCT;HLLCompiler;command_line' pc 1489
(compilers/pct/src/PCT/HLLCompiler.pir:794)
called from Sub 'perl6;Perl6;Compiler;main' pc -1 ((unknown file):-1)

I suspected a mis-parse, and look what I got for investigating:

./perl6 --target=parse foo.pl
get_pmc_keyed() not implemented in class 'Undef'
current instr.: 'perl6;Perl6;Grammar;assign_check' pc 152874
(src/gen/perl6-grammar.pir:30593)
called from Sub 'perl6;HLL;Grammar;EXPR_reduce' pc 1423
(ext/nqp-rx/src/stage0/HLL-s0.pir:711)
called from Sub 'perl6;HLL;Grammar;EXPR' pc 1016
(ext/nqp-rx/src/stage0/HLL-s0.pir:552)
called from Sub 'perl6;Perl6;Grammar;statement' pc 44161
(src/gen/perl6-grammar.pir:3214)
called from Sub 'perl6;Perl6;Grammar;statementlist' pc 43192
(src/gen/perl6-grammar.pir:2925)
called from Sub 'perl6;Perl6;Grammar;comp_unit' pc 42746
(src/gen/perl6-grammar.pir:2787)
called from Sub 'perl6;Perl6;Grammar;TOP' pc 33048 (src/gen/role_pm.pir:783)
called from Sub 'perl6;Regex;Cursor;parse' pc 282
(ext/nqp-rx/src/stage0/Regex-s0.pir:181)
called from Sub 'perl6;HLL;Compiler;parse' pc 5
(ext/nqp-rx/src/stage0/HLL-s0.pir:24)
called from Sub 'perl6;PCT;HLLCompiler;compile' pc 388
(compilers/pct/src/PCT/HLLCompiler.pir:287)
called from Sub 'perl6;PCT;HLLCompiler;eval' pc 992
(compilers/pct/src/PCT/HLLCompiler.pir:556)
called from Sub 'perl6;PCT;HLLCompiler;evalfiles' pc 1303
(compilers/pct/src/PCT/HLLCompiler.pir:707)
called from Sub 'perl6;PCT;HLLCompiler;command_line' pc 1489
(compilers/pct/src/PCT/HLLCompiler.pir:794)
called from Sub 'perl6;Perl6;Compiler;main' pc -1 ((unknown file):-1)

A test can be found in  t/spec/S03-operators/precedence.t



-- 
Moritz Lenz
http://perlgeek.de/ |  http://perl-6.de/ | http://sudokugarden.de/

Reply via email to