Commits

Anonymous committed a097a00

* Someone reported that sockflow() and peerflow() were broken. The reason
for that was that unpack_sockaddr_in6_all was not imported from Socket6.
This release fixes it (with tests in t/host6.t).

  • Participants
  • Parent commits cd6fe91

Comments (0)

Files changed (3)

modules/IO-Socket-INET6/ChangeLog

 	* Changed the email address of Rafael to the new one in the ChangeLog
 	and README files.
+	* Someone reported that sockflow() and peerflow() were broken. The reason
+	for that was that unpack_sockaddr_in6_all was not imported from Socket6.
+	This release fixes it (with tests in t/host6.t).
 
 2008-02-05 Shlomi Fish <shlomif@iglu.org.il>
 

modules/IO-Socket-INET6/lib/IO/Socket/INET6.pm

 use Socket;
 # IO::Socket and Socket already import stuff here - possibly AF_INET6
 # and PF_INET6 so selectively import things from Socket6.
-use Socket6 (qw(AI_PASSIVE inet_ntop inet_pton getaddrinfo sockaddr_in6));
+use Socket6 (
+    qw(AI_PASSIVE inet_ntop inet_pton getaddrinfo 
+    sockaddr_in6 unpack_sockaddr_in6_all)
+);
+
 use Carp;
 use Exporter;
 use Errno;

modules/IO-Socket-INET6/t/host6.t

     exit;
 } elsif (defined $pid) {
 
-    plan tests => 2;
+    plan tests => 4;
     # child, try various ways to connect
     my $sock = IO::Socket::INET6->new("[::1]:$port");
 
     # TEST
     ok ($sock->peerhost(), "Checking for peerhost() success");
 
+    # TEST
+    is ($sock->sockflow(), 0, "Checking for sockflow() success");
+
+    # TEST
+    is ($sock->peerflow(), 0, "Checking for peerflow() success");
+
     print {$sock} "H\n";
     undef($sock);
 } else {