Leopold Toetsch wrote:
>
> IMHO is
>
> $a = \$h{"a"};
> print $$a;
> $$a = "xxx\n";
> $a = $h{"a"};
> print $a;
>
> the same as:
>
> new P1, .PerlHash
> set P0, P1["a"]
> print P0
> set P0, "xxx\n"
> set P2, P1["a"]
> print P2
> end
>
> (PMCs have reference semantics[1])
> Shouldn't that print "xxx" as perl5 does? I.e. store the returned
> PerlUndef in the hash.
If you'd done:
assign P0, "xxx\n"
Instead of set, then yes. However, "set Px, Py" merely stores Py into
the register Px, without touching the PMC that was in it.
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED]
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
