diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-10 20:55:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-10 20:55:31 +0000 |
| commit | 121c220b9702deba50950c191dfc820e5e10754b (patch) | |
| tree | 694d4583f0c462cc6faf1f528008cec07996a662 /ext/IO | |
| parent | 8b9593b78bae68349fbe921bb0040180d11fee29 (diff) | |
| download | perl-121c220b9702deba50950c191dfc820e5e10754b.tar.gz | |
Add ReuseAddr as a (preferred) alias for Reuse as we know
also have ReusePort.
p4raw-id: //depot/perl@8398
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index 6b1bfb5fdc..d2cc488dd2 100644 --- a/ext/IO/lib/IO/Socket/INET.pm +++ b/ext/IO/lib/IO/Socket/INET.pm @@ -151,7 +151,7 @@ sub configure { $sock->socket(AF_INET, $type, $proto) or return _error($sock, $!, "$!"); - if ($arg->{Reuse}) { + if ($arg->{Reuse} || $arg->{ReuseAddr}) { $sock->sockopt(SO_REUSEADDR,1) or return _error($sock, $!, "$!"); } @@ -307,7 +307,8 @@ C<IO::Socket::INET> provides. Proto Protocol name (or number) "tcp" | "udp" | ... Type Socket type SOCK_STREAM | SOCK_DGRAM | ... Listen Queue size for listen - Reuse Set SO_REUSEADDR before binding + ReuseAddr Set SO_REUSEADDR before binding + Reuse Set SO_REUSEADDR before binding (deprecated, prefer ReuseAddr) ReusePort Set SO_REUSEPORT before binding Timeout Timeout value for various operations MultiHomed Try all adresses for multi-homed hosts |