note
Roy Johnson
<blockquote><i>...a better way to implement ceil...</i></blockquote>
<code>
my $dlen = int((7 + length($_[0]) * 7)/8);
substr($_[0], $dlen) = '';
vec ($_[0], $dbit++, 1) = 0 while ($dbit < $dlen * 8);
}
</code>
This replaces your shrink function from the definition of $dlen on.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-300037">
<hr>
<small><b>Caution:</b> Contents may have been coded under pressure.</small>
</div></div>
439303
439416