diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-19 12:13:52 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-19 12:13:52 +0200 |
| commit | 80a649c810fab9a1510e35c012adc454dd4a0a4e (patch) | |
| tree | 1a3b3ccfff13ccc414d51901ed7f3f4f1c6867c9 /ext | |
| parent | 0eedeed40b39b3e37aa3a674c182ccda0c738aa6 (diff) | |
| download | perl-80a649c810fab9a1510e35c012adc454dd4a0a4e.tar.gz | |
Fcntl, POSIX and Socket can all use Proxy Constant Subs unconditionally.
Previously each Makefile.PL had conditional code to only use them post 5.9.2,
so that the code would not diverge between blead and maint-5.8. That isn't an
important consideration any longer, whereas removing the conditional code here
will allow their AUTOLOAD routines to be simplified.
Diffstat (limited to 'ext')
| -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 43067893eb..2bed7547a1 100644 --- a/ext/Fcntl/Makefile.PL +++ b/ext/Fcntl/Makefile.PL @@ -39,7 +39,7 @@ my @names = (qw( {name=>"SEEK_END", default=>["IV", "2"]}, {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT"}); WriteConstants( - ($] > 5.009002 ? (PROXYSUBS => 1) : ()), + PROXYSUBS => 1, NAME => 'Fcntl', NAMES => \@names, ); diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL index ff04c3e116..4a2c08a13e 100644 --- a/ext/POSIX/Makefile.PL +++ b/ext/POSIX/Makefile.PL @@ -119,7 +119,7 @@ if ($rt_signals) { } WriteConstants( - ($] > 5.009002 ? (PROXYSUBS => 1) : ()), + PROXYSUBS => 1, NAME => 'POSIX', NAMES => \@names, ); diff --git a/ext/Socket/Makefile.PL b/ext/Socket/Makefile.PL index 672e2265f7..043f4823cd 100644 --- a/ext/Socket/Makefile.PL +++ b/ext/Socket/Makefile.PL @@ -72,7 +72,7 @@ push @names, foreach qw(INADDR_ANY INADDR_LOOPBACK INADDR_NONE INADDR_BROADCAST); WriteConstants( - ($] > 5.009002 ? (PROXYSUBS => 1) : ()), + PROXYSUBS => 1, NAME => 'Socket', NAMES => \@names, ); |