diff options
author | Ian Lynagh <igloo@earth.li> | 2009-01-04 18:46:52 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2009-01-04 18:46:52 +0000 |
commit | c5a514d1d44d46f59b6255c3e432b1bbe384c937 (patch) | |
tree | c70dbcf8e8ee2b5a54d712f5f676c2af0e20755d /sync-all | |
parent | 2e58952557444176e0591db26fbe6a5b9e6a124e (diff) | |
download | haskell-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-all | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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$/, @_) { |