summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/HTTP/Daemon.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTTP/Daemon.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/HTTP/Daemon.pm7
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);
}