diff options
author | Matthias Kilian <kili@outback.escape.de> | 2011-04-24 17:22:50 +0200 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-04-27 16:22:37 +0100 |
commit | 5e060e6653ca7aba825aeaa92a1b24d218d27fc2 (patch) | |
tree | b657399ac4e8717bf56c66e4623ebbfc2f200dda /sync-all | |
parent | 06f69812ccf28af381cd97e7759d00a27d9709ac (diff) | |
download | haskell-5e060e6653ca7aba825aeaa92a1b24d218d27fc2.tar.gz |
Skip missing directories for real.
While here, make the code a little bit more readable.
Diffstat (limited to 'sync-all')
-rwxr-xr-x | sync-all | 22 |
1 files changed, 8 insertions, 14 deletions
@@ -310,20 +310,14 @@ sub scmall { if (-d "$localpath/.git") { die "Found both _darcs and .git in $localpath"; } - else { - $scm = "darcs"; - } - } - else { - if (-d "$localpath/.git") { - $scm = "git"; - } - elsif ($tag eq "") { - die "Required repo $localpath is missing"; - } - else { - message "== $localpath repo not present; skipping"; - } + $scm = "darcs"; + } elsif (-d "$localpath/.git") { + $scm = "git"; + } elsif ($tag eq "") { + die "Required repo $localpath is missing"; + } else { + message "== $localpath repo not present; skipping"; + next; } # Work out the arguments we should give to the SCM |