From 99e136cfed6e793e7f85b0916239416bf96acaf7 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 24 Jan 2002 17:02:53 +0000
Subject: [PATCH] emit a warning in this unlikely case again

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

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