On Sat Mar 06 10:12:34 2010, ml...@physik.uni-wuerzburg.de wrote: > 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 > > >
<Coke> rakudo: my $x; so $x = 1; $x.say <p6eval> rakudo 2808a5: OUTPUT«1» This seems to work, but I can't find the test mentioned above. assigning to moritz for testing. -- Will "Coke" Coleda
