From bc326ab2fa23525c20fb806ae3771f1d67611502 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Wed, 29 May 2002 14:53:49 +0000 Subject: [PATCH] Added "FATAL" to log when a fatal error occurs. --- lib/WebGUI/ErrorHandler.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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);