scripts/dupe-finder | 1 +

diff --git a/scripts/dupe-finder b/scripts/dupe-finder
index 7b490cbbc3fcc0c61f97c3e441b9a9d253ddc9de..deeb0d6f853510459d1b5ffd12c8c407d15d6b46 100644
--- a/scripts/dupe-finder
+++ b/scripts/dupe-finder
@@ -22,6 +22,7 @@ }
 $ibx or die "No inbox";
 $ibx->search or die "search not available for inbox";
 my $over = $ibx->over;
+my $dbh = $over->dbh;
 
 sub emit ($) {
 	my ($nums) = @_;