diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTTP/Daemon.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/HTTP/Daemon.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/HTTP/Daemon.pm b/Master/tlpkg/tlperl/lib/HTTP/Daemon.pm index cf61147d077..27a7bf4e173 100644 --- a/Master/tlpkg/tlperl/lib/HTTP/Daemon.pm +++ b/Master/tlpkg/tlperl/lib/HTTP/Daemon.pm @@ -3,9 +3,9 @@ package HTTP::Daemon; use strict; use vars qw($VERSION @ISA $PROTO $DEBUG); -$VERSION = "5.827"; +$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); } |