Add ReuseAddr as a (preferred) alias for Reuse as we know

also have ReusePort.

p4raw-id: //depot/perl@8398

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 6b1bfb5..d2cc488 100644 (file)
--- 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