From 6e263ad06d202a6221bd2d12b406dce67914be24 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Jul 2004 12:42:03 +0000
Subject: [PATCH] show a full stack backtrace if we wind up in the hash method
 with an empty Hash attribute, wtf?

---
 FS/FS/Record.pm | 2 ++
 1 file changed, 2 insertions(+)

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