Merge r932791 from trunk:

Update apxs for perl 5.12: Remove useless use of $[, which is now deprecated.

Submitted by: Roderich Schupp <roderich schupp googlemail com>
Reviewed by: sf, trawick, pgollucci

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/branches/2.2.x@942882 13f79535-47bb-0310-9956-ffa450edef68

diff --git a/STATUS b/STATUS
index ed33b5a3ea73d672218c3ff9a29a3c069300f6e8..c73f73692b437fb97a720dcd9d7bc28347445725 100644 (file)
--- a/STATUS
+++ b/STATUS
@@ -86,10 +86,6 @@ RELEASE SHOWSTOPPERS:
 PATCHES ACCEPTED TO BACKPORT FROM TRUNK:
   [ start all new proposals below, under PATCHES PROPOSED. ]
 
-  * Update apxs for perl 5.12
-    Trunk patch: http://svn.apache.org/viewvc?rev=932791&view=rev
-    2.2.x patch: trunk patch works
-    +1: sf, trawick, pgollucci
 
 PATCHES PROPOSED TO BACKPORT FROM TRUNK:
   [ New proposals should be added at the end of the list ]

diff --git a/support/apxs.in b/support/apxs.in
index adf4efd6a1c1eeb11de89cab025920aaceb3d882..1900a787bca036ce0c4be7dfad84ea882659d2bf 100644 (file)
--- a/support/apxs.in
+++ b/support/apxs.in
@@ -83,7 +83,6 @@ sub Getopts {
     my ($argumentative, @ARGV) = @_;
     my $errs = 0;
     local $_;
-    local $[ = 0;
 
     my @args = split / */, $argumentative;
     while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
@@ -93,7 +92,7 @@ sub Getopts {
             last;
         }
         my $pos = index($argumentative,$first);
-        if ($pos >= $[) {
+        if ($pos >= 0) {
             if ($pos < $#args && $args[$pos+1] eq ':') {
                 shift @ARGV;
                 if ($rest eq '') {