From: ivan <ivan>
Date: Thu, 24 Jan 2002 17:02:53 +0000 (+0000)
Subject: emit a warning in this unlikely case again
X-Git-Tag: freeside_1_4_0pre11~123
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=99e136cfed6e793e7f85b0916239416bf96acaf7

emit a warning in this unlikely case again
---

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;