From 97b377f991f6e9475e8e95c211f67e1186d33062 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 21 Feb 2009 04:28:19 +0000
Subject: [PATCH] and for obj creation too

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

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;
-- 
2.11.0