X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=dupemerge;a=blobdiff_plain;f=dm6;fp=dm6;h=b8cd25f1bf2319b3aaa3425cac05e712728fe1e1;hp=1f76cae0269a8d85a0899a5596aea10264ad2c0f;hb=6757a5a253dcdd4023338a430304e088af10bc68;hpb=f7dda48b96404d1abfa75b0290b42890caad4425

diff --git a/dm6 b/dm6
index 1f76cae..b8cd25f 100755
--- a/dm6
+++ b/dm6
@@ -106,7 +106,7 @@ sub prepare_parents {
 
 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, '');
 	# Don't strip off the trailing padding since it makes the string