I can't test this but to me it looks like the correct fix is:
- my $low4bytes = ( ( $self->get_byte( $offset ) >> 1 ) & 0x30 ) << 30; + my $low4bytes = ( ( $self->get_byte( $offset ) >> 1 ) & 0x03 ) << 30;
Nick -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
