From: ivan <ivan>
Date: Sat, 21 Feb 2009 04:28:19 +0000 (+0000)
Subject: and for obj creation too
X-Git-Tag: root_of_webpay_support~37
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=97b377f991f6e9475e8e95c211f67e1186d33062

and for obj creation too
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 809ec0a36..2d0263b22 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -154,7 +154,8 @@ sub new {
 
   unless ( defined ( $self->table ) ) {
     $self->{'Table'} = shift;
-    carp "warning: FS::Record::new called with table name ". $self->{'Table'};
+    carp "warning: FS::Record::new called with table name ". $self->{'Table'}
+      unless $nowarn_classload;
   }
   
   $self->{'Hash'} = shift;