[commit: ghc] master: Tidy sync-all up a bit, and turn on ignorecase for git repos (272466d)
Ian Lynagh
igloo at earth.li
Fri Apr 15 15:25:46 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/272466d88e4311a1afe066755b88fd5cf782b255
>---------------------------------------------------------------
commit 272466d88e4311a1afe066755b88fd5cf782b255
Author: Ian Lynagh <igloo at earth.li>
Date: Fri Apr 15 14:21:47 2011 +0100
Tidy sync-all up a bit, and turn on ignorecase for git repos
>---------------------------------------------------------------
sync-all | 18 ++++++------------
1 files changed, 6 insertions(+), 12 deletions(-)
diff --git a/sync-all b/sync-all
index 2d2a2cd..a7b579e 100755
--- a/sync-all
+++ b/sync-all
@@ -68,9 +68,6 @@ my $ignore_failure = 0;
my $checked_out_flag = 0;
my $get_mode;
-# Flags specific to a particular command
-my $local_repo_unnecessary = 0;
-
my %tags;
# Figure out where to get the other repositories from.
@@ -289,22 +286,19 @@ sub scmall {
next;
}
- # The first time round the loop, default the get-mode
- if ($scm eq "darcs" && not defined($get_mode)) {
- warning("adding --partial, to override use --complete");
- $get_mode = "--partial";
- }
-
- # The only command that doesn't need a repo
- $local_repo_unnecessary = 1;
-
# Note that we use "." as the path, as $localpath
# doesn't exist yet.
if ($scm eq "darcs") {
+ # The first time round the loop, default the get-mode
+ if (not defined($get_mode)) {
+ warning("adding --partial, to override use --complete");
+ $get_mode = "--partial";
+ }
scm (".", $scm, "get", $get_mode, $path, $localpath, @args);
}
else {
scm (".", $scm, "clone", $path, $localpath, @args);
+ scm ($localpath, $scm, "config", "core.ignorecase", "true");
}
next;
}
More information about the Cvs-ghc
mailing list