specify LIMIT and increase it to 10000 docs

diff --git a/store-fsck.pl b/store-fsck.pl
index 35b2a14..eb376d7 100755 (executable)
--- a/store-fsck.pl
+++ b/store-fsck.pl
@@ -12,7 +12,7 @@ my $login = $ARGV[0] || die "usage: $0 login\n";
 my $store = CloudStore::Couchbase->new;
 
 my $offset = 0;
-my $limit  = 100;
+my $limit  = $ENV{LIMIT} || 10000;
 
 while(1) {
        my $r = $store->couchdb(