use same treatment for EINVAL as for ETIMEDOUT

[p5sagit/p5-mst-13.2.git] / ext / Socket / Socket.pm

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 1fa108f..f83cb18 100644 (file)
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -1,6 +1,6 @@
 package Socket;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 $VERSION = "1.71";
 
 =head1 NAME
@@ -244,6 +244,9 @@ use XSLoader ();
        SCM_CREDS
        SCM_RIGHTS
        SCM_TIMESTAMP
+       SHUT_RD
+       SHUT_RDWR
+       SHUT_WR
        SOCK_DGRAM
        SOCK_RAW
        SOCK_RDM
@@ -320,6 +323,115 @@ sub sockaddr_un {
     }
 }
 
+sub INADDR_ANY                 ();
+sub INADDR_BROADCAST   ();
+sub INADDR_LOOPBACK    ();
+sub INADDR_LOOPBACK    ();
+
+sub AF_802             ();
+sub AF_APPLETALK       ();
+sub AF_CCITT           ();
+sub AF_CHAOS           ();
+sub AF_DATAKIT         ();
+sub AF_DECnet          ();
+sub AF_DLI             ();
+sub AF_ECMA            ();
+sub AF_GOSIP           ();
+sub AF_HYLINK          ();
+sub AF_IMPLINK         ();
+sub AF_INET            ();
+sub AF_LAT             ();
+sub AF_MAX             ();
+sub AF_NBS             ();
+sub AF_NIT             ();
+sub AF_NS              ();
+sub AF_OSI             ();
+sub AF_OSINET          ();
+sub AF_PUP             ();
+sub AF_SNA             ();
+sub AF_UNIX            ();
+sub AF_UNSPEC          ();
+sub AF_X25             ();
+sub IOV_MAX            ();
+sub MSG_BCAST          ();
+sub MSG_CTLFLAGS       ();
+sub MSG_CTLIGNORE      ();
+sub MSG_CTRUNC         ();
+sub MSG_DONTROUTE      ();
+sub MSG_DONTWAIT       ();
+sub MSG_EOF            ();
+sub MSG_EOR            ();
+sub MSG_ERRQUEUE       ();
+sub MSG_FIN            ();
+sub MSG_MAXIOVLEN      ();
+sub MSG_MCAST          ();
+sub MSG_NOSIGNAL       ();
+sub MSG_OOB            ();
+sub MSG_PEEK           ();
+sub MSG_PROXY          ();
+sub MSG_RST            ();
+sub MSG_SYN            ();
+sub MSG_TRUNC          ();
+sub MSG_URG            ();
+sub MSG_WAITALL                ();
+sub PF_802             ();
+sub PF_APPLETALK       ();
+sub PF_CCITT           ();
+sub PF_CHAOS           ();
+sub PF_DATAKIT         ();
+sub PF_DECnet          ();
+sub PF_DLI             ();
+sub PF_ECMA            ();
+sub PF_GOSIP           ();
+sub PF_HYLINK          ();
+sub PF_IMPLINK         ();
+sub PF_INET            ();
+sub PF_LAT             ();
+sub PF_MAX             ();
+sub PF_NBS             ();
+sub PF_NIT             ();
+sub PF_NS              ();
+sub PF_OSI             ();
+sub PF_OSINET          ();
+sub PF_PUP             ();
+sub PF_SNA             ();
+sub PF_UNIX            ();
+sub PF_UNSPEC          ();
+sub PF_X25             ();
+sub SCM_CONNECT                ();
+sub SCM_CREDENTIALS    ();
+sub SCM_CREDS          ();
+sub SCM_RIGHTS         ();
+sub SCM_TIMESTAMP      ();
+sub SHUT_RD            ();
+sub SHUT_RDWR          ();
+sub SHUT_WR            ();
+sub SOCK_DGRAM         ();
+sub SOCK_RAW           ();
+sub SOCK_RDM           ();
+sub SOCK_SEQPACKET     ();
+sub SOCK_STREAM                ();
+sub SOL_SOCKET         ();
+sub SOMAXCONN          ();
+sub SO_ACCEPTCONN      ();
+sub SO_BROADCAST       ();
+sub SO_DEBUG           ();
+sub SO_DONTLINGER      ();
+sub SO_DONTROUTE       ();
+sub SO_ERROR           ();
+sub SO_KEEPALIVE       ();
+sub SO_LINGER          ();
+sub SO_OOBINLINE       ();
+sub SO_RCVBUF          ();
+sub SO_RCVLOWAT                ();
+sub SO_RCVTIMEO                ();
+sub SO_REUSEADDR       ();
+sub SO_SNDBUF          ();
+sub SO_SNDLOWAT                ();
+sub SO_SNDTIMEO                ();
+sub SO_TYPE            ();
+sub SO_USELOOPBACK     ();
+sub UIO_MAXIOV         ();
 
 sub AUTOLOAD {
     my($constname);
@@ -329,7 +441,7 @@ sub AUTOLOAD {
        my ($pack,$file,$line) = caller;
        croak "Your vendor has not defined Socket macro $constname, used";
     }
-    eval "sub $AUTOLOAD { $val }";
+    eval "sub $AUTOLOAD () { $val }";
     goto &$AUTOLOAD;
 }