From bf264f3c59707da3ed471f0ad2ea32d9c7917e06 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 3 Mar 2005 08:15:37 +0000
Subject: [PATCH] want a full stack backtrace for this warning

---
 FS/FS/Record.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]) : ();
-- 
2.11.0