Removed some leftover debugging accidentally added with

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

diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL
index c01d45a..073c3db 100644 (file)
--- a/ext/Socket/Makefile.PL
+++ b/ext/Socket/Makefile.PL
@@ -1,5 +1,5 @@
 use ExtUtils::MakeMaker;
-use ExtUtils::Constant 0.07 'WriteConstants';
+use ExtUtils::Constant 0.11 'WriteConstants';
 use Config;
 WriteMakefile(
     NAME        => 'Socket',
@@ -7,7 +7,7 @@ WriteMakefile(
    ($Config{libs} =~ /(-lsocks\S*)/ ? (LIBS => [ "$1" ] ) : ()),
     MAN3PODS    => {},         # Pods will be built by installman.
     XSPROTOARG   => '-noprototypes',           # XXX remove later?
-    realclean => {FILES=> 'constants.c constants.xs'},
+    realclean => {FILES=> 'const-c.inc const-xs.inc'},
 );
 my @names = (qw(AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF
                AF_DATAKIT AF_DECnet AF_DLI AF_ECMA AF_GOSIP AF_HYLINK
@@ -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,
 );