From: ivan <ivan>
Date: Thu, 1 Jul 2004 12:42:03 +0000 (+0000)
Subject: show a full stack backtrace if we wind up in the hash method with an empty Hash attri... 
X-Git-Tag: freeside_1_5_0beforepre6^2~106
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=6e263ad06d202a6221bd2d12b406dce67914be24;p=freeside.git

show a full stack backtrace if we wind up in the hash method with an empty Hash attribute, wtf?
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 946e39dd5..881b8ddb5 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -537,6 +537,8 @@ To make a distinct duplicate of an FS::Record object, you can do:
 
 sub hash {
   my($self) = @_;
+  confess $self. ' -> hash: Hash attribute is undefined'
+    unless defined($self->{'Hash'});
   %{ $self->{'Hash'} }; 
 }