httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s.@apache.org
Subject svn commit: r932791 - /httpd/httpd/trunk/support/apxs.in
Date Sat, 10 Apr 2010 20:54:37 GMT
Author: sf
Date: Sat Apr 10 20:54:37 2010
New Revision: 932791

URL: http://svn.apache.org/viewvc?rev=932791&view=rev
Log:
Remove useless use of $[, which was long deprecated and is an error with perl 5.12rc3.

Submitted by: Roderich Schupp <roderich schupp googlemail com>

Modified:
    httpd/httpd/trunk/support/apxs.in

Modified: httpd/httpd/trunk/support/apxs.in
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/support/apxs.in?rev=932791&r1=932790&r2=932791&view=diff
==============================================================================
--- httpd/httpd/trunk/support/apxs.in (original)
+++ httpd/httpd/trunk/support/apxs.in Sat Apr 10 20:54:37 2010
@@ -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 '') {



Mime
View raw message