diff options
Diffstat (limited to 'lib/getopts.pl')
-rw-r--r-- | lib/getopts.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/getopts.pl b/lib/getopts.pl index b2aa5cb60e..928bb225a8 100644 --- a/lib/getopts.pl +++ b/lib/getopts.pl @@ -16,13 +16,12 @@ sub Getopts { local($argumentative) = @_; local(@args,$_,$first,$rest); local($errs) = 0; - local($[) = 0; @args = split( / */, $argumentative ); while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) { ($first,$rest) = ($1,$2); $pos = index($argumentative,$first); - if($pos >= $[) { + if($pos >= 0) { if($args[$pos+1] eq ':') { shift(@ARGV); if($rest eq '') { |