http://www.perlmonks.org?node_id=47214


in reply to Re: Power of two round up.
in thread Power of two round up.

Just to give Dominus more heebie jeebies :)
sub round_up { local $_ = (shift)-1; my $num = (2**int(log($_)/log(2)))-1; return ++($_ |= $num); }