test file_size with send to different shard

[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 );