projects
/
cloudstore.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
don't die on md5sum without filename
[cloudstore.git]
/
dump-bdb.pl
diff --git
a/dump-bdb.pl
b/dump-bdb.pl
index
bfe9884
..
efad525
100755
(executable)
--- a/
dump-bdb.pl
+++ b/
dump-bdb.pl
@@
-5,7
+5,10
@@
use strict;
use BerkeleyDB;
use Data::Dump qw(dump);
+my $path = shift @ARGV;
+die $! unless -r $path;
+
my %h;
-tie %h, "BerkeleyDB::Hash", -Filename => $
_[0]
;
+tie %h, "BerkeleyDB::Hash", -Filename => $
path
;
print dump( \%h );