From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 Mar 2007 22:01:32 +0000 (+0000)
Subject: Only use proxy constant subroutines for 5.9.x.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ad94821f051a942e9998c251cdd5a5b1f4b681f;p=p5sagit%2Fp5-mst-13.2.git

Only use proxy constant subroutines for 5.9.x.

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

diff --git a/ext/Fcntl/Makefile.PL b/ext/Fcntl/Makefile.PL
index 2f31a73..f1d9bdf 100644
--- a/ext/Fcntl/Makefile.PL
+++ b/ext/Fcntl/Makefile.PL
@@ -40,7 +40,7 @@ my @names = (qw(
             {name=>"SEEK_END", default=>["IV", "2"]},
             {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT"});
 WriteConstants(
-    PROXYSUBS => 1,
+    ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
     NAME => 'Fcntl',
     NAMES => \@names,
 );
diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
index ef6c1f9..74e7d19 100644
--- a/ext/POSIX/Makefile.PL
+++ b/ext/POSIX/Makefile.PL
@@ -123,7 +123,7 @@ if ($rt_signals) {
 }
 
 WriteConstants(
-    PROXYSUBS => 1,
+    ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
     NAME => 'POSIX',
     NAMES => \@names,
 );
diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL
index 073c3db..0bfb58d 100644
--- a/ext/Socket/Makefile.PL
+++ b/ext/Socket/Makefile.PL
@@ -66,7 +66,7 @@ push @names,
          foreach qw(INADDR_ANY INADDR_LOOPBACK INADDR_NONE INADDR_BROADCAST);
 
 WriteConstants(
-    PROXYSUBS => 1,
+    ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
     NAME => 'Socket',
     NAMES => \@names,
 );