| Subject: | Net::Server::Fork - missing unpack using $sock->getsockopt |
For every connection I get this output on console:
Argument "\0\0\0^A\0\0\0^E\0\0\0\0\0\0\0\0\0\0\0M-\f^A^A\0\0\0M-^A..." isn't numeric in numeric eq (==) at /usr/local/site_perl/aix/Net/Server/Fork.pm line 171.
Line 171 of the module is this:
if (SOCK_DGRAM == $sock->getsockopt(SOL_SOCKET,SO_TYPE)) {
getsockopt does not return an integer. Out of documentation:
"The function returns a packed string representing the requested socket option"
So I changed the code to this, which solves the problem:
if (SOCK_DGRAM == unpack("i",$sock->getsockopt(SOL_SOCKET,SO_TYPE))) {
Version: 2.007 and 0.63
OS: AIX 6.1
Hope this helps
Best regards
Peter