nntp: use substr to check for trailing CRLF

[public-inbox.git] / scripts / dupe-finder

diff --git a/scripts/dupe-finder b/scripts/dupe-finder
index 8060a9d7e7f10de3ee7a76b65a76f59713718a25..d9744fcb25c07f37b2f396cb788ab30b1279d9ab 100644 (file)
--- a/scripts/dupe-finder
+++ b/scripts/dupe-finder
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2018-2019 all contributors <meta@public-inbox.org>
+# Copyright (C) 2018-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # 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) = @_;