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 87a9a7d43dfac63f899d4b7434507a540180bb9b..5ea3e22147156fc866b48757c1372d418b856311 100644 (file)
--- 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 '') {