diff options
| author | Stefan Fritsch <sf@apache.org> | 2010-04-10 22:54:37 +0200 |
|---|---|---|
| committer | Stefan Fritsch <sf@apache.org> | 2010-04-10 22:54:37 +0200 |
| commit | 8725d94311fa64e6e911f01f470a991e51b7c73b (patch) | |
| tree | 52052894d24ba824635d70fdd352fa5aa6417c98 | |
| parent | make_sock() sets lr->listen on success, so no need to set (diff) | |
| download | apache2-8725d94311fa64e6e911f01f470a991e51b7c73b.tar.xz apache2-8725d94311fa64e6e911f01f470a991e51b7c73b.zip | |
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
| -rw-r--r-- | support/apxs.in | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/support/apxs.in b/support/apxs.in index 87a9a7d43d..5ea3e22147 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 '') { |