From: Salvador Fandino <sfandino@yahoo.com>
Date: Tue, 15 Jun 2010 09:31:04 +0000 (+0200)
Subject: Add support for more TCP_ constants to Socket
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f686127b43eb3c08a5cb1fccce5ef34212234df5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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)],