.sub main @MAIN
$P0=new PerlInt
$P0=1
$P1=new PerlInt
set $P1, $P0
$P2=new PerlInt
setref $P2, $P0
$P0=2
print "$P1 = "
print $P1
print "\n"
print "$P2 = "
print $P2
print "\n"
.end
- Sam Ruby
Yep. The C<setref> opcode is intended to set a reference inside a
reference type, like Ref or SharedRef. The implementation of
perlscalar's setref is the old "assign the RHS value" behavior.
We have to cleanup classes.
> - Sam Ruby
leo