This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Only use proxy constant subroutines for 5.9.x.
authorNicholas Clark <nick@ccl4.org>
Wed, 21 Mar 2007 22:01:32 +0000 (22:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 21 Mar 2007 22:01:32 +0000 (22:01 +0000)
p4raw-id: //depot/perl@30671

ext/Fcntl/Makefile.PL
ext/POSIX/Makefile.PL
ext/Socket/Makefile.PL

index 2f31a73..f1d9bdf 100644 (file)
@@ -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,
 );
index ef6c1f9..74e7d19 100644 (file)
@@ -123,7 +123,7 @@ if ($rt_signals) {
 }
 
 WriteConstants(
-    PROXYSUBS => 1,
+    ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
     NAME => 'POSIX',
     NAMES => \@names,
 );
index 073c3db..0bfb58d 100644 (file)
@@ -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,
 );