X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=dump-bdb.pl;h=efad5259ab731706927b5589cb68a0a69c91dee5;hb=fb579a655e7d9d69e2f031c0c3f87e070eb0d81f;hp=bfe988438bf356873b7d0f2fed327f4aeea8d068;hpb=3a8a892db9177f41354ceceb1276d5a9897d6407;p=cloudstore.git

diff --git a/dump-bdb.pl b/dump-bdb.pl
index bfe9884..efad525 100755
--- 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 );