From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 10 Jul 2007 20:31:31 +0000 (+0000)
Subject: Add additional SUSV3 constants to Socket for use with setsockopt()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=131c565afbb207eedaa0a3a4458b1e0ef2716db7;p=p5sagit%2Fp5-mst-13.2.git

Add additional SUSV3 constants to Socket for use with setsockopt()
and getsockopt().

p4raw-id: //depot/perl@31581
---

diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL
index 0bfb58d..0746b67 100644
--- a/ext/Socket/Makefile.PL
+++ b/ext/Socket/Makefile.PL
@@ -15,7 +15,8 @@ my @names = (qw(AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF
 		AF_LAST AF_LAT AF_LINK AF_MAX AF_NBS AF_NIT AF_NS
 		AF_OSI AF_OSINET AF_PUP AF_ROUTE AF_SNA
 		AF_UNIX AF_UNSPEC AF_USER AF_WAN AF_X25
-		IOV_MAX
+		IOV_MAX IP_OPTIONS IP_HDRINCL IP_TOS IP_TTL IP_RECVOPTS
+	        IP_RECVRETOPTS IP_RETOPTS
 		MSG_BCAST MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_DONTWAIT
 		MSG_EOF MSG_EOR MSG_ERRQUEUE MSG_ETAG MSG_FIN
 		MSG_MAXIOVLEN MSG_MCAST MSG_NOSIGNAL MSG_RST MSG_SYN
@@ -45,6 +46,9 @@ my @names = (qw(AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF
 		TCP_KEEPALIVE TCP_MAXRT TCP_MAXSEG TCP_NODELAY TCP_STDURG
 		UIO_MAXIOV
 		),
+            {name=>"IPPROTO_IP", type=>"IV", default=>["IV", 0]},
+            {name=>"IPPROTO_IPV6", type=>"IV", default=>["IV", 41]},
+            {name=>"IPPROTO_RAW", type=>"IV", default=>["IV", 255]},
             {name=>"IPPROTO_ICMP", type=>"IV", default=>["IV", 1]},
             {name=>"IPPROTO_TCP",  type=>"IV", default=>["IV", 6]},
             {name=>"IPPROTO_UDP",  type=>"IV", default=>["IV", 17]},
diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 47b27e7..3d428a9 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.79";
+$VERSION = "1.80";
 
 =head1 NAME
 
@@ -223,6 +223,13 @@ use XSLoader ();
 	AF_WAN
 	AF_X25
 	IOV_MAX
+	IP_OPTIONS
+	IP_HDRINCL
+	IP_TOS
+	IP_TTL
+	IP_RECVOPTS
+	IP_RECVRETOPTS
+	IP_RETOPTS
 	MSG_BCAST
 	MSG_BTAG
 	MSG_CTLFLAGS
@@ -337,6 +344,9 @@ use XSLoader ();
 
 @EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF
 
+	       IPPROTO_IP
+	       IPPROTO_IPV6
+	       IPPROTO_RAW
 	       IPPROTO_ICMP
 	       IPPROTO_TCP
 	       IPPROTO_UDP