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

1 files changed, 2 insertions, 0 deletions

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'} }; 
 }