summaryrefslogtreecommitdiff
path: root/sync-all
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-01-04 18:46:52 +0000
committerIan Lynagh <igloo@earth.li>2009-01-04 18:46:52 +0000
commitc5a514d1d44d46f59b6255c3e432b1bbe384c937 (patch)
treec70dbcf8e8ee2b5a54d712f5f676c2af0e20755d /sync-all
parent2e58952557444176e0591db26fbe6a5b9e6a124e (diff)
downloadhaskell-c5a514d1d44d46f59b6255c3e432b1bbe384c937.tar.gz
Fix sync-all: Check for --complete/partial before --<anything>
Patch from megacz in trac #2857
Diffstat (limited to 'sync-all')
-rw-r--r--sync-all6
1 files changed, 3 insertions, 3 deletions
diff --git a/sync-all b/sync-all
index 1f0bfecad2..1de4fe3dcb 100644
--- a/sync-all
+++ b/sync-all
@@ -199,15 +199,15 @@ sub main {
elsif ($arg eq "--ignore-failure") {
$ignore_failure = 1;
}
+ elsif ($arg eq "--complete" || $arg eq "--partial") {
+ $get_mode = $arg;
+ }
# --<tag> says we grab the libs tagged 'tag' with
# 'get'. It has no effect on the other commands.
elsif ($arg =~ m/^--/) {
$arg =~ s/^--//;
$tags{$arg} = 1;
}
- elsif ($arg eq "--complete" || $arg eq "--partial") {
- $get_mode = $arg;
- }
else {
unshift @_, $arg;
if (grep /^-q$/, @_) {