X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=dupemerge;a=blobdiff_plain;f=dm6;h=b8cd25f1bf2319b3aaa3425cac05e712728fe1e1;hp=34bb654f41f9bf77c33e933557414e51e99c2a68;hb=6757a5a253dcdd4023338a430304e088af10bc68;hpb=e4974f1b5561c306f3e4acbe2d2fd3c94d2cbce8 diff --git a/dm6 b/dm6 index 34bb654..b8cd25f 100755 --- a/dm6 +++ b/dm6 @@ -41,7 +41,7 @@ sub usage { Usage: $0 link-dir Hashes a NUL-separated list of files on stdin into link-dir. -Version: 20100513.0 +Version: 0.20100514 USAGE } @@ -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