From: ivan <ivan>
Date: Sat, 21 Feb 2009 04:27:08 +0000 (+0000)
Subject: it would help to actually finish nowarn_classload kludge
X-Git-Tag: root_of_webpay_support~38
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8885741747ff6ba17832401791ceb1b7073efdf2

it would help to actually finish nowarn_classload kludge
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index ee9c23153..809ec0a36 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -37,7 +37,7 @@ $DEBUG = 0;
 $me = '[FS::Record]';
 
 $nowarn_identical = 0;
-$nowarn_classload;
+$nowarn_classload = 0;
 $no_update_diff = 0;
 $no_check_foreign = 0;
 
@@ -438,7 +438,8 @@ sub qsearch {
       }
     }
   } else {
-    cluck "warning: FS::$table not loaded; returning FS::Record objects";
+    cluck "warning: FS::$table not loaded; returning FS::Record objects"
+      unless $nowarn_classload;
     @return = map {
       FS::Record->new( $table, { %{$_} } );
     } values(%result);