summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
7d97ec6)
perl's IO::Socket::IP passes AI_ADDRCONFIG if no GetAddrInfoFlags are passed,
which is often useful but also causes it to error when explicitly trying to
bind to 127.0.0.1 when there are no _other_ IPv4 addresses present.
Listen => SOMAXCONN,
Family => $family,
Proto => 'tcp',
Listen => SOMAXCONN,
Family => $family,
Proto => 'tcp',
ReuseAddr => 1) ||
die "unable to create socket - $@\n";
ReuseAddr => 1) ||
die "unable to create socket - $@\n";
LocalPort => $p,
ReuseAddr => 1,
Family => $family,
LocalPort => $p,
ReuseAddr => 1,
Family => $family,
+ Proto => 0,
+ GetAddrInfoFlags => 0);
if ($sock) {
close($sock);
if ($sock) {
close($sock);