From 8b6d244f0ebb730d295a9c55ecbd420c53f578c8 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 19 Dec 2002 14:30:39 +0000
Subject: [PATCH] Protect dns-lookup-ip with a fatal error handler.

---
 scheme/httpd/logging.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/logging.scm b/scheme/httpd/logging.scm
index 45e7b65..5a0928b 100644
--- a/scheme/httpd/logging.scm
+++ b/scheme/httpd/logging.scm
@@ -164,6 +164,10 @@
 
 (define (maybe-dns-lookup remote-ip)
   (if (logging-dns-lookup?)
-      (or (dns-lookup-ip remote-ip)
+      (or (with-fatal-error-handler*
+	   (lambda (condition decline)
+	     remote-ip)
+	   (lambda ()
+	     (dns-lookup-ip remote-ip)))
 	  remote-ip)
       remote-ip))
\ No newline at end of file