sub name_quad {
my ($int64) = @_;
- my $packed = pack('Q', $int64);
+ my $packed = pack('Q>', $int64);
$packed =~ s/^\0+//os;
my $base64_packed = encode_base64($packed, '');
+ $base64_packed =~ y:/:_:;
# Don't strip off the trailing padding since it makes the string
# so short we end up just putting it back on again.
# $base64_packed =~ s/=+$//os;