From: ivan <ivan>
Date: Tue, 15 Jun 2004 10:59:16 +0000 (+0000)
Subject: add stack backtrace to fatal problems in virtual field check
X-Git-Tag: BEFORE_FINAL_MASONIZE~1035
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=f11341c6ca588f1ff5e46a857540e88d49d7647a

add stack backtrace to fatal problems in virtual field check
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index dd87e5a9a..946e39dd5 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -986,7 +986,14 @@ sub check {
     for ($self->getfield($field)) {
       # See notes on check_block in FS::part_virtual_field.
       eval $self->pvf($field)->check_block;
-      return $@ if $@;
+      if ( $@ ) {
+        #this is bad, probably want to follow the stack backtrace up and see
+        #wtf happened
+        my $err = "Fatal error checking $field for $self";
+        cluck "$err: $@";
+        return "$err (see log for backtrace): $@";
+
+      }
       $self->setfield($field, $_);
     }
   }