X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=881b8ddb596f31def6a75c7587c013af518952a8;hp=946e39dd551d11c3b0ed84b717d88d33d6657d55;hb=6e263ad06d202a6221bd2d12b406dce67914be24;hpb=197e1640b4d44a4769fccc947d0f1e128fbde3a8

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