note
shmem
<blockquote><i>
<c>
$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@==(1)x pop
</c>
</i></blockquote>
<p>Segfaults with perl v5.18.2:
</p>
<code>
qwurx [shmem] ~> perl -e '$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@==(1)x pop' 10
Attempt to free unreferenced scalar: SV 0xdd0968, Perl interpreter: 0xda4010 at -e line 1.
Segmentation fault
</code>
<p>Works with v5.10.1 though. Looks like the segfault happens here:
<c>
$=[@z]%=1+$#z--).=0
</c>
<p>Can't (for now) figure out why.</p>
<div class="pmsig"><div class="pmsig-510280">
<small>perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'</small>
</div></div>
374942
375216