+_______________________________________________________________________________
+2012-02-18 HTTP-Daemon 6.01
+
+If you bind localhost, don't trust gethostbyaddr() to resolve the
+address. [RT#67247]
+
+Restore perl-5.8.1 compatiblity.
+
+
+
+
_______________________________________________________________________________
2011-02-25 HTTP-Daemon 6.00
--- #YAML:1.0
name: HTTP-Daemon
-version: 6.00
+version: 6.01
abstract: a simple http server class
author:
- Gisle Aas <gisle@activestate.com>
HTTP::Status: 6
IO::Socket: 0
LWP::MediaTypes: 6
- perl: 5.008008
+ perl: 5.008001
Sys::Hostname: 0
resources:
MailingList: mailto:libwww@perl.org
- repository: http://github.com/gisle/libwww-perl
+ repository: http://github.com/gisle/http-daemon
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.57_05
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
#!perl -w
-require 5.008008;
+require 5.008001;
use strict;
use ExtUtils::MakeMaker;
ABSTRACT_FROM => 'lib/HTTP/Daemon.pm',
AUTHOR => 'Gisle Aas <gisle@activestate.com>',
LICENSE => "perl",
- MIN_PERL_VERSION => 5.008008,
+ MIN_PERL_VERSION => 5.008001,
PREREQ_PM => {
'Sys::Hostname' => 0,
'IO::Socket' => 0,
},
META_MERGE => {
resources => {
- repository => 'http://github.com/gisle/libwww-perl',
+ repository => 'http://github.com/gisle/http-daemon',
MailingList => 'mailto:libwww@perl.org',
}
},
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";
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);
}