X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=5c828b7c69398916a423b1a3ee8f8c94e49d3255;hb=b03df92e48df653460cb8b6034a06dd1de6f4095;hp=6c0f5f819d354420ea1c1058e30b491ac9eaf906;hpb=cf16b23820da69e3c8d0156ae27e21c635bf1ec5;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 6c0f5f819..5c828b7c6 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -122,7 +122,10 @@ sub new {
   my $self = {};
   bless ($self, $class);
 
-  $self->{'Table'} = shift unless defined ( $self->table );
+  unless defined ( $self->table ) {
+    $self->{'Table'} = shift;
+    carp "warning: FS::Record::new called with table name ". $self->{'Table'};
+  }
 
   my $hashref = $self->{'Hash'} = shift;