Imported Upstream version 6.01

[libhttp-daemon-perl.git] / lib / HTTP / Daemon.pm

diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
index 6988bd47f58a601f00f002b22cd5caa6d87d22ae..27a7bf4e1733ca752ba97a2e59a2a37fe327e842 100644 (file)
--- a/lib/HTTP/Daemon.pm
+++ b/lib/HTTP/Daemon.pm
@@ -3,9 +3,9 @@ package HTTP::Daemon;
 use strict;
 use vars qw($VERSION @ISA $PROTO $DEBUG);
 
-$VERSION = "6.00";
+$VERSION = "6.01";
 
-use IO::Socket qw(AF_INET INADDR_ANY inet_ntoa);
+use IO::Socket qw(AF_INET INADDR_ANY INADDR_LOOPBACK inet_ntoa);
 @ISA=qw(IO::Socket::INET);
 
 $PROTO = "HTTP/1.1";
@@ -44,6 +44,9 @@ sub url
        require Sys::Hostname;
        $url .= lc Sys::Hostname::hostname();
     }
+    elsif ($addr eq INADDR_LOOPBACK) {
+       $url .= inet_ntoa($addr);
+    }
     else {
        $url .= gethostbyaddr($addr, AF_INET) || inet_ntoa($addr);
     }