rename Couchbase to Store

[cloudstore.git] / store-fsck.pl

diff --git a/store-fsck.pl b/store-fsck.pl
index 35b2a14..ebbc981 100755 (executable)
--- a/store-fsck.pl
+++ b/store-fsck.pl
@@ -5,14 +5,14 @@ use strict;
 use Data::Dump qw(dump);
 
 use lib 'lib';
-use CloudStore::Couchbase;
+use CloudStore::Store;
 
 my $login = $ARGV[0] || die "usage: $0 login\n";
 
-my $store = CloudStore::Couchbase->new;
+my $store = CloudStore::Store->new;
 
 my $offset = 0;
-my $limit  = 100;
+my $limit  = $ENV{LIMIT} || 10000;
 
 while(1) {
        my $r = $store->couchdb(