X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fdupe-finder;h=7b490cbbc3fcc0c61f97c3e441b9a9d253ddc9de;hb=e61ade9e03e754b5bde70518223b1e9d92ab57e4;hp=1e98093685a5d946b7ca5fd7322b5b2a4604845d;hpb=9bd675d33ad1e49bd2ebe12a1d216216e61380de;p=public-inbox.git
diff --git a/scripts/dupe-finder b/scripts/dupe-finder
index 1e980936..7b490cbb 100644
--- a/scripts/dupe-finder
+++ b/scripts/dupe-finder
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# Copyright (C) 2018-2019 all contributors
+# Copyright (C) 2018-2020 all contributors
# License: AGPL-3.0+
#
# ad-hoc tool for finding duplicates, unstable!
@@ -14,15 +14,14 @@ my $ibx;
if (index($repo, '@') > 0) {
$ibx = PublicInbox::Config->new->lookup($repo);
} elsif (-d $repo) {
- $ibx = { mainrepo => $repo, address => 'unnamed@example.com' };
+ $ibx = { inboxdir => $repo, address => 'unnamed@example.com' };
$ibx = PublicInbox::Inbox->new($ibx);
} else {
$ibx = PublicInbox::Config->new->lookup_name($repo);
}
$ibx or die "No inbox";
$ibx->search or die "search not available for inbox";
-my $dbh = $ibx->search->{over_ro}->connect;
-my $over = PublicInbox::Over->new($dbh->sqlite_db_filename);
+my $over = $ibx->over;
sub emit ($) {
my ($nums) = @_;