+ while ($#_ ne -1) {
+ my $arg = shift;
+ # We handle -q here as well as lower down as we need to skip over it
+ # if it comes before the darcs command
+ if ($arg eq "-q") {
+ $verbose = 0;
+ }
+ elsif ($arg eq "--complete") {
+ $complete = 1;
+ }
+ elsif ($arg eq "--extra") {
+ $extra = 1;
+ }
+ elsif ($arg eq "--nofib") {
+ $nofib = 1;
+ }
+ elsif ($arg eq "--testsuite") {
+ $testsuite = 1;
+ }
+ else {
+ unshift @_, $arg;
+ if (grep /^-q$/, @_) {
+ $verbose = 0;
+ }
+ last;
+ }
+ }
+