if ($defaultrepo =~ /:/) {
# HTTP or SSH
$defaultrepo_base = $defaultrepo;
- $defaultrepo_base =~ s#/ghc$##;
+ $defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
}
elsif ($defaultrepo =~ /^\//) {
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;
}
}
else {
unshift @_, $arg;
+ if (grep /^-q$/, @_) {
+ $verbose = 0;
+ }
last;
}
}