freeside/FS/FS Record.pm,1.61.2.15,1.61.2.16

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv24841

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	Record.pm 
Log Message:
show a full stack backtrace if we wind up in the hash method with an empty Hash attribute, wtf?

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.61.2.15
retrieving revision 1.61.2.16
diff -u -d -r1.61.2.15 -r1.61.2.16
--- Record.pm	30 Apr 2004 21:58:16 -0000	1.61.2.15
+++ Record.pm	1 Jul 2004 12:42:04 -0000	1.61.2.16
@@ -462,6 +462,8 @@
 
 sub hash {
   my($self) = @_;
+  confess $self. ' -> hash: Hash attribute is undefined'
+    unless defined($self->{'Hash'});
   %{ $self->{'Hash'} }; 
 }