X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fdupe-finder;h=d9744fcb25c07f37b2f396cb788ab30b1279d9ab;hb=10e0e2052b2c2a4bb405cfbb4c2c72464671152d;hp=6f873b6e56a5fb113f7e5f9e4df3f56962fbcdf1;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git
diff --git a/scripts/dupe-finder b/scripts/dupe-finder
index 6f873b6e..d9744fcb 100644
--- a/scripts/dupe-finder
+++ b/scripts/dupe-finder
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# Copyright (C) 2018-2020 all contributors
+# Copyright (C) 2018-2021 all contributors
# License: AGPL-3.0+
#
# ad-hoc tool for finding duplicates, unstable!
@@ -21,8 +21,8 @@ if (index($repo, '@') > 0) {
}
$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;
+my $dbh = $over->dbh;
sub emit ($) {
my ($nums) = @_;