diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-03-21 22:01:32 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-21 22:01:32 +0000 |
| commit | 8ad94821f051a942e9998c251cdd5a5b1f4b681f (patch) | |
| tree | 0706334c5334f525c1e912894ee98456e4bcc782 | |
| parent | 6460123ae692a9c25bc8c2253f12c8cf6f0ebdc0 (diff) | |
| download | perl-8ad94821f051a942e9998c251cdd5a5b1f4b681f.tar.gz | |
Only use proxy constant subroutines for 5.9.x.
p4raw-id: //depot/perl@30671
| -rw-r--r-- | ext/Fcntl/Makefile.PL | 2 | ||||
| -rw-r--r-- | ext/POSIX/Makefile.PL | 2 | ||||
| -rw-r--r-- | 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, ); |