# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #57338]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57338 >
$ svn info | grep Revi
Revision: 29791
This works:
$ ./perl6 -e 'class A {}; say A.new.b()'
Method 'b' not found for invocant of class 'A'
[...]
Even this works!
$ ./perl6 -e 'class A {}; sub c { say A.new.b() }; c()'
Method 'b' not found for invocant of class 'A'
[...]
This also works, but segfaults:
$ ./perl6 -e 'class A {}; sub c { say A.new.b() }; c'
Method 'b' not found for invocant of class 'A'
current instr.: 'c' pc 99 (EVAL_13:42)
called from Sub '_block11' pc 17 (EVAL_13:11)
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 14567 (perl6.pir:172)
perl6(27149) malloc: *** error for object 0xcc2e40: double free
*** set a breakpoint in malloc_error_break to debug
Segmentation fault
