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 (file)
--- 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 (file)
--- 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 (file)
--- 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,
 );