Fix sockaddr_family() calls.

As @skaji pointed out, these calls should be on the sockname, not the
address.

Also, I altered the remaining tests to use IO::Socket::IP rather than
IO::Socket so that the prerequisites list would be a bit more concise.

Author: genio

lib/HTTP/Daemon.pm

@@ -55,11 +55,15 @@ sub url {
     else {
         my $host = $self->sockhostname;
         if (!defined $host) {
-            if (sockaddr_family($addr) eq AF_INET6) {
+            my $family = sockaddr_family($self->sockname);
+            if ($family && $family == AF_INET6) {
                 $host = '[' . inet_ntop(AF_INET6, $addr) . ']';
             }
+            elsif ($family && $family == AF_INET) {
+                $host = inet_ntop(AF_INET, $addr);
+            }
             else {
-                $host = inet_ntop(AF_INET6, $addr);
+                die "Unknown family";
             }
         }
         $url .= $host;

t/local/http.t

@@ -12,7 +12,7 @@ unless (-f "CAN_TALK_TO_OURSELF") {
 
 $| = 1;    # autoflush
 
-require IO::Socket;   # make sure this work before we try to make a HTTP::Daemon
+require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
 
 # First we make ourself a daemon in another process
 my $D = shift || '';

t/robot/ua-get.t

@@ -11,7 +11,7 @@ unless (-f "CAN_TALK_TO_OURSELF") {
 }
 
 $| = 1;               # autoflush
-require IO::Socket;   # make sure this work before we try to make a HTTP::Daemon
+require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
 
 # First we make ourself a daemon in another process
 my $D = shift || '';

t/robot/ua.t

@@ -11,7 +11,7 @@ unless (-f "CAN_TALK_TO_OURSELF") {
 }
 
 $| = 1;               # autoflush
-require IO::Socket;   # make sure this work before we try to make a HTTP::Daemon
+require IO::Socket::IP;   # make sure this work before we try to make a HTTP::Daemon
 
 # First we make ourself a daemon in another process
 my $D = shift || '';