freeside/FS/FS Record.pm,1.85,1.86
ivan
ivan at pouncequick.420.am
Tue Jun 15 03:59:20 PDT 2004
Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv17299
Modified Files:
Record.pm
Log Message:
add stack backtrace to fatal problems in virtual field check
Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- Record.pm 30 Apr 2004 21:58:15 -0000 1.85
+++ Record.pm 15 Jun 2004 10:59:16 -0000 1.86
@@ -986,7 +986,14 @@
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, $_);
}
}
More information about the freeside-commits
mailing list