4.x style

[freeside.git] / bin / merge-referrals

diff --git a/bin/merge-referrals b/bin/merge-referrals
old mode 100644 (file)
new mode 100755 (executable)
index ba07a81..e39f053
--- 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";