Re: How can I tell if a number is a power of 2?

[c-era]

in reply to How can I tell if a number is a power of 2?

How about this one?

sub is_power_of_2{
    $num = shift;
    $num2 = 1;
    while ($num>$num2){
        $num2=$num2<<1;
    }
    return ($num^$num2)?0:1;
}