Add support for more TCP_ constants to Socket

(plus bump version to 1.89)

diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL
index d95d916..672e226 100644 (file)
--- a/ext/Socket/Makefile.PL
+++ b/ext/Socket/Makefile.PL
@@ -43,6 +43,9 @@ my @names = (qw(AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF
                SO_SNDBUF SO_SNDLOWAT SO_SNDTIMEO
                SO_STATE SO_TYPE SO_USELOOPBACK SO_XOPEN SO_XSE
                TCP_KEEPALIVE TCP_MAXRT TCP_MAXSEG TCP_NODELAY TCP_STDURG
+               TCP_CORK TCP_KEEPIDLE TCP_KEEPINTVL TCP_KEEPCNT
+               TCP_SYNCNT TCP_LINGER2 TCP_DEFER_ACCEPT TCP_WINDOW_CLAMP
+               TCP_INFO TCP_QUICKACK TCP_CONGESTION TCP_MD5SIG
                UIO_MAXIOV
                ),
             {name=>"IPPROTO_IP", type=>"IV", default=>["IV", 0]},

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 753644a..20224e4 100644 (file)
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -1,7 +1,7 @@
 package Socket;
 
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = "1.88";
+$VERSION = "1.89";
 
 =head1 NAME
 
@@ -377,7 +377,19 @@ use XSLoader ();
               TCP_MAXRT
               TCP_MAXSEG
               TCP_NODELAY
-              TCP_STDURG);
+              TCP_STDURG
+              TCP_CORK
+              TCP_KEEPIDLE
+              TCP_KEEPINTVL
+              TCP_KEEPCNT
+              TCP_SYNCNT
+              TCP_LINGER2
+              TCP_DEFER_ACCEPT
+              TCP_WINDOW_CLAMP
+              TCP_INFO
+              TCP_QUICKACK
+              TCP_CONGESTION
+              TCP_MD5SIG);
 
 %EXPORT_TAGS = (
     crlf    => [qw(CR LF CRLF $CR $LF $CRLF)],