From 8ad94821f051a942e9998c251cdd5a5b1f4b681f Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 21 Mar 2007 22:01:32 +0000 Subject: Only use proxy constant subroutines for 5.9.x. p4raw-id: //depot/perl@30671 --- ext/Fcntl/Makefile.PL | 2 +- ext/POSIX/Makefile.PL | 2 +- ext/Socket/Makefile.PL | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ext/Fcntl/Makefile.PL b/ext/Fcntl/Makefile.PL index 2f31a73ec9..f1d9bdf2c9 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 ef6c1f9db8..74e7d194e5 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 073c3dba9e..0bfb58dcba 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, ); -- cgit v1.2.1