Select Code to Download

#!/usr/bin/perl

...
    $mask = (2 ** ($y + 1) -1) << ($bits - $y) if $x < 0;
    return $z | $mask;
}

#!/usr/bin/perl

...
    $mask = ( -1 >> ($bits - $y) ) << ($bits - $y) if $x < 0;
    return $z | $mask;
}