From: Stefan Fritsch <sf@apache.org>
Date: Sat, 10 Apr 2010 20:54:37 +0000 (+0000)
Subject: Remove useless use of $[, which was long deprecated and is an error with perl 5.12rc3.
X-Git-Tag: 2.3.6~230
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8725d94311fa64e6e911f01f470a991e51b7c73b;p=thirdparty%2Fapache%2Fhttpd.git

Remove useless use of $[, which was long deprecated and is an error with perl 5.12rc3.

Submitted by: Roderich Schupp <roderich schupp googlemail com>


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@932791 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/support/apxs.in b/support/apxs.in
index 87a9a7d43df..5ea3e221471 100644
--- a/support/apxs.in
+++ b/support/apxs.in
@@ -84,7 +84,6 @@ sub Getopts {
     my ($argumentative, @ARGV) = @_;
     my $errs = 0;
     local $_;
-    local $[ = 0;
 
     my @args = split / */, $argumentative;
     while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
@@ -94,7 +93,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 '') {