X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fdupe-finder;h=d9744fcb25c07f37b2f396cb788ab30b1279d9ab;hb=0ae89efce11e1e3b10a067c61c5b4cde30fa2b3b;hp=8060a9d7e7f10de3ee7a76b65a76f59713718a25;hpb=3c39f9c942a6975245fda878e9b957d8d3367662;p=public-inbox.git diff --git a/scripts/dupe-finder b/scripts/dupe-finder index 8060a9d7..d9744fcb 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-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) = @_;