Usage: $0 link-dir
Hashes a NUL-separated list of files on stdin into link-dir.
-Version: 20100513.0
+Version: 0.20100514
USAGE
}
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