X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FSocket%2FMakefile.PL;h=073c3dba9e8c133e07bbc3dcac008c2aec8d3c0d;hb=e412117ea1226c9d124c70f29c4db6aa58f12c11;hp=e5436890c6b08a9b0a8162c02ed69f7ed7c98e1b;hpb=ece2ffd956f7ea808efa81a896d7c65a476ba817;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL
index e543689..073c3db 100644
--- a/ext/Socket/Makefile.PL
+++ b/ext/Socket/Makefile.PL
@@ -15,7 +15,7 @@ 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 IPPROTO_TCP
+		IOV_MAX
 		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 +45,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_ICMP", type=>"IV", default=>["IV", 1]},
+            {name=>"IPPROTO_TCP",  type=>"IV", default=>["IV", 6]},
+            {name=>"IPPROTO_UDP",  type=>"IV", default=>["IV", 17]},
             {name=>"SHUT_RD", type=>"IV", default=>["IV", "0"]},
             {name=>"SHUT_WR", type=>"IV", default=>["IV", "1"]},
             {name=>"SHUT_RDWR", type=>"IV", default=>["IV", "2"]},
@@ -63,6 +66,7 @@ push @names,
          foreach qw(INADDR_ANY INADDR_LOOPBACK INADDR_NONE INADDR_BROADCAST);
 
 WriteConstants(
+    PROXYSUBS => 1,
     NAME => 'Socket',
     NAMES => \@names,
 );