scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove bug from my-reported-fqdn

This commit is contained in:
interp 2002-08-24 16:46:34 +00:00
parent 514d61b986
commit 1ea2e0f8e7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/core.scm
View File

@ -421,7 +421,7 @@ the requested method (~A).~%"
(or *fqdn-cache*
(begin
(set! *fqdn-cache* (or (httpd-options-fqdn options)
(dns-lookup-ip addr)
(dns-lookup-ip (socket-address->string addr))
(host-info:name (host-info addr))))
*fqdn-cache*)))
@ -429,3 +429,4 @@ the requested method (~A).~%"
(or (httpd-options-reported-port options)
(receive (ip-addr portnum) (socket-address->internet-address addr)
portnum)))