freeside/FS/FS Record.pm,1.86,1.87

[ivan]

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

Modified Files:
	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.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- Record.pm	15 Jun 2004 10:59:16 -0000	1.86
+++ Record.pm	1 Jul 2004 12:42:03 -0000	1.87
@@ -537,6 +537,8 @@
 
 sub hash {
   my($self) = @_;
+  confess $self. ' -> hash: Hash attribute is undefined'
+    unless defined($self->{'Hash'});
   %{ $self->{'Hash'} }; 
 }