From @drforr

OS​: Ubuntu 14.04 LTS in VirtualBox
Host​: Windows 8, Intel Core i5 Dual

Rakudo version​:
This is perl6 version 2015.03-159-g4afc9e9 built on MoarVM version
2015.03-45-ge0f1cb0

The code below creates a self-referencing object then tries to print it.
Creating the self-reference proceeds normally but any attempt to print
it, even with the .perl modifier, ends up invoking the OOM killer, I'm
guessing as it goes round-and-round the object tree, which now has a
loop in it. I haven't tried to see if changing @​.myself to $.myself has
any effect because trying the normal things causes a different
compile-time error.

--cut here--
class Bug {
  has @​.myself;
  method bind( $myself ) {
  @​.myself[0] = $myself;
  }
}

my $a1 = Bug.new;

$a1.bind( $a1 );

say $a1;
--cut here--

From @coke

This now works​:

$ ./perl6 rt124242.p6
Bug.new(myself => (my \Array_4544383328 = [Bug.new(myself => Array_4544383328)]))

Closeable with tests.
--
Will "Coke" Coleda

The RT System itself - Status changed from 'new' to 'open'

From @niner

Tests added in roast commit 95a6e7723fa09dbf79df0ca664d591b941b4f893

@niner - Status changed from 'open' to 'resolved'