+while (@ARGV) {
+ $_ = shift @ARGV;
+ if (m/^--$/) {
+ last;
+ } elsif (m/^(\w+)=([^|]+)$/) {
+ setcanddesc $1, $2;
+ } elsif (m/^\+($opt_re)$/) {
+ push @options, $1;
+ } elsif (m/^\+(\w+)\+($opt_re)$/) {
+ push @{ $candidates{$1}{Opts} }, $2;
+ } elsif (m/^-/) {
+ die "unknown normalise option \`$_'\n";
+ } else {
+ # oh!
+ unshift @ARGV, $_;
+ last;
+ }
+}
+