Commit 56bf6730 authored by Ian Lynagh's avatar Ian Lynagh

Put the darcs-all command parsing into main() so it can use @_

parent 610379bc
......@@ -37,26 +37,6 @@ my $extra = 0;
my $nofib = 0;
my $testsuite = 0;
while ($#_ ne -1) {
my $arg = shift;
if ($arg eq "-q") {
$verbose = 0;
}
elsif ($arg eq "--extra") {
$extra = 1;
}
elsif ($arg eq "--nofib") {
$nofib = 1;
}
elsif ($arg eq "--testsuite") {
$testsuite = 1;
}
else {
unshift @_, $arg;
last;
}
}
sub message {
if ($verbose) {
print "@_\n";
......@@ -142,6 +122,26 @@ sub main {
die "error: darcs-all must be run from the top level of the ghc tree."
}
while ($#_ ne -1) {
my $arg = shift;
if ($arg eq "-q") {
$verbose = 0;
}
elsif ($arg eq "--extra") {
$extra = 1;
}
elsif ($arg eq "--nofib") {
$nofib = 1;
}
elsif ($arg eq "--testsuite") {
$testsuite = 1;
}
else {
unshift @_, $arg;
last;
}
}
if ($#_ eq -1) {
die "What do you want to do?";
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment