Log web &fatal info to http error logs.

diff --git a/Web.pm b/Web.pm
index cf02915..c6a0452 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -289,6 +289,7 @@ sub fatal (;$)
 my($msg)=@_;
 
        $msg="UNKNOWN" if !$msg;
+       cluck "FATAL: $msg";
 
        $W->{"indexme"}=0;      # For the case no heading was sent yet.
        $W->{"heading_done"}=0; # for the case of already sent {"header_only"}==1