From: ivan <ivan>
Date: Thu, 1 Jul 2004 12:42:04 +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_4_2beta1~50
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=82c87cf80df0b40927a2afdde772da2369311e43

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 acf2e82a2..b620c0114 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -462,6 +462,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'} }; 
 }