X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=748026a13caa7f895827d65dbeb0fcf4a31263fb;hb=583902ab51f62551fe3620d98d42e72620edfa76;hp=5465f078a6edb7c81db06de0f5f7805ee6e2eb29;hpb=9d013bfbad3913b8ab9f1885fc66ba34032f1b0a;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 5465f078a..748026a13 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -439,7 +439,7 @@ for a single item, or your data is corrupted.
 sub qsearchs { # $result_record = &FS::Record:qsearchs('table',\%hash);
   my $table = $_[0];
   my(@result) = qsearch(@_);
-  carp "warning: Multiple records in scalar search ($table)"
+  cluck "warning: Multiple records in scalar search ($table)"
     if scalar(@result) > 1;
   #should warn more vehemently if the search was on a primary key?
   scalar(@result) ? ($result[0]) : ();