# New Ticket Created by Christoph Bussenius
# Please include the string: [perl #69322]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69322 >
Hi,
this produces a segfault with the current rakudo version
(0220cc22acefd5567c
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69314]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69314 >
rakudo: sub foo($n) { say $n; if $n { callsame($n-1) } }; foo(1)
rakudo 0eaf62: OUTPUT
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69318]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69318 >
rakudo: sub foo { say "OH HAI" }; &foo = &say; foo
rakudo 0eaf62: OUTPUT«»
excuse me
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #69308]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69308 >
Rakudo 3d6536797861db887cdb4479610e10415e343628 on parrot r41410:
This program segfaults
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69316]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69316 >
rakudo: class Forest { class Frog { method speak { say "ribbit
ribbit" } }; has Frog $.
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69320]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69320 >
rakudo: say (:()).WHAT
rakudo 0eaf62: OUTPUT«The opcode 'descalarref_p'
(descalarref<1
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69312]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69312 >
rakudo: sub foo { say "=" x 40 }; for reverse ^40 -> $n {
&foo.wrap({ say "=" x $n; cal
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69310]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=69310 >
rakudo: say 1/0; say "Alive"; say (1/0).Num
rakudo 0eaf62: OUTPUT«AliveDivide by zero
Author: jimmy
Date: 2009-09-23 15:18:37 +0200 (Wed, 23 Sep 2009)
New Revision: 28378
Modified:
docs/Perl6/Spec/S02-bits.pod
Log:
[Spec/S02-bits.pod]wrapping the line.
Modified: docs/Perl6/Spec/S02-bits.pod
===
--- docs/Perl6/Spec/
