AnyEvent::Socket::getprotobyname()

[gleeco]

full disclosure - still hacking but had to change the usage (ie.
import-overkill) -g

40c40
< use Socket qw(AF_INET AF_UNIX SOCK_STREAM SOCK_DGRAM SOL_SOCKET SO_REUSEADDR);
---
> use Socket qw(:all);
221c221
< $PROTO_BYNAME{tcp}  = Socket::IPPROTO_TCP () if defined &Socket::IPPROTO_TCP;
---
> $PROTO_BYNAME{tcp}  = Socket::IPPROTO_TCP () if defined Socket::IPPROTO_TCP;
227a228,229
> warn __PACKAGE__ , " getprotobyname($name) called\t", ((exists  $PROTO_BYNAME{$name}) ? "TRUE" : "FALSE" ), "\n";