autarch · July 10, 2013 15:34
diff --git a/gistfile1.txt b/gistfile1.txt
        my $int = uint128(0);

        return $int if $size == 0;

        my @unpacked = unpack( 'NNNN', $self->_zero_pad_left( $buffer, 16 ) );
        for my $piece (@unpacked) {
            $int <<= 32;
            $int |= $piece;
        }

        return $int;
	my $int = uint128(0);

	return $int if $size == 0;

	my @unpacked = unpack( 'NNNN', $self->_zero_pad_left( $buffer, 16 ) );
	for my $piece (@unpacked) {
	$int <<= 32;
	$int \|= $piece;
	}

	return $int;