fix merge-referrals, RT#10247

diff --git a/bin/merge-referrals b/bin/merge-referrals
index ba07a81..e39f053 100644 (file)
--- a/bin/merge-referrals
+++ b/bin/merge-referrals
@@ -2,7 +2,7 @@
 
 use strict;
 use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearchs);
+use FS::Record qw(qsearch);
 use FS::cust_main;
 
 my $user = shift or die "usage: merge-customers username custnum\n";