# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #61124]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61124 >
The following should work in Rakudo:
$ perl6 -e 'class A {}; my $a = A.new.clone'
Method 'clone' not found for invocant of class 'A'
[...]
Segmentation fault
Perhaps more to the point, the following should work too, and print "5\n42\n":
$ perl6 -e 'class A { has $.x }; my $a = new A(x => 5); my $a2 =
a.clone; say $a2.x; my $a3 = a.clone(x => 42); say $a3.x'
