# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #57398]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57398 >
$ svn info | grep Revi
Revision: 29869
$ ./perl6 -e 'sub a($x) { $x = 5 }; my $y = 7; a($y);'
Cannot assign to readonly variable
[...]
works, but the following works but segfaults:
$ ./perl6 -e 'sub a($x) { $x = 5 }; my $y = 7; a($y);'
Cannot assign to readonly variable
current instr.: 'a' pc 138 (EVAL_14:59)
called from Sub '_block11' pc 45 (EVAL_14:20)
called from Sub 'parrot;PCT::HLLCompiler;eval' pc 806
(src/PCT/HLLCompiler.pir:481)
called from Sub 'parrot;PCT::HLLCompiler;command_line' pc 1305
(src/PCT/HLLCompiler.pir:708)
called from Sub 'parrot;Perl6::Compiler;main' pc 14623 (perl6.pir:172)
perl6(33762) malloc: *** error for object 0x29c1250: double free
*** set a breakpoint in malloc_error_break to debug
Segmentation fault
