diff --git a/lib/WebGUI/ErrorHandler.pm b/lib/WebGUI/ErrorHandler.pm index db31b9b61..b397a7b1a 100644 --- a/lib/WebGUI/ErrorHandler.pm +++ b/lib/WebGUI/ErrorHandler.pm @@ -34,7 +34,7 @@ sub fatalError { print "

WebGUI Fatal Error

Something unexpected happened that caused this system to fault.

" unless ($friendly); $log = FileHandle->new(">>$logfile") or print "Can't open log file."; print $0." at ".localtime(time)." reported:
" unless ($friendly); - print $log localtime(time)." ".$0." ".$_[0]."\n"; + print $log localtime(time)." ".$0." FATAL: ".$_[0]."\n"; print $_[0] unless ($friendly); print "

Caller

" unless ($friendly); print "Level 1
".join("
",caller(1)) unless ($friendly);