--- toast 2005/06/10 23:01:35 1.381 +++ toast 2005/06/24 03:48:28 1.382 @@ -1458,7 +1458,6 @@ { my(%vars) = printnewenv; $ENV{$_} = $vars{$_} for keys(%vars); -optrun("printenv") || optrun("env"); true; } @@ -1489,6 +1488,7 @@ optrun("uname", "-a"); optrun(findperl, "-V"); optrun("printenv") || optrun("env"); + explain("argv: $_") for @ARGV; my(@urls) = pkgurls($name, $version); explain("no urls") unless @urls; explain("url: $_") for @urls; @@ -5244,9 +5244,20 @@ sub parseopts(@) { - my($opt, $cmd); - while(($opt = shift) && $opt =~ /^-/ && $opt ne "--") + my($opt, $cmd, @result); + while(($opt = shift)) { + if($opt eq "--") + { + push(@result, @_); + last; + } + elsif($opt !~ /^-/) + { + push(@result, $opt); + next; + } + $opt = "--help" if $opt =~ /^--?[h\?]$/i; if($opt =~ /^--?(\w+)=(.*)$/) { @@ -5293,8 +5304,6 @@ } } - my(@result) = @_; - unshift(@result, $opt) if defined($opt) && $opt ne "--"; unshift(@result, $cmd) if $cmd; return @result; }