X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=sync-all;h=9db2dbba38672c29b7adbfef08366a8330ead297;hb=28b45c520a106a464595540b044e8af1cc71b5c8;hp=1de4fe3dcb7b7cb0ea6eb866a9c2f4960ea8b711;hpb=c5a514d1d44d46f59b6255c3e432b1bbe384c937;p=ghc-hetmet.git

diff --git a/sync-all b/sync-all
index 1de4fe3..9db2dbb 100644
--- a/sync-all
+++ b/sync-all
@@ -39,7 +39,7 @@ my $local_repo_unnecessary = 0;
 
 # Always define the empty tag so that we fetch the /required/ packages
 my %tags;
-$tags{""} = 1;
+$tags{"-"} = 1;
 
 sub message {
     if ($verbose >= 2) {
@@ -80,6 +80,7 @@ sub scmall {
     my $tag;
     my $remotepath;
     my $scm;
+    my $upstream;
 
     my $path;
     my $wd_before = getcwd;
@@ -89,11 +90,12 @@ sub scmall {
     open IN, "< packages" or die "Can't open packages file";
     while (<IN>) {
         chomp;
-        if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
+        if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+) +([^ ]+)$/) {
             $localpath = $1;
             $tag = defined($2) ? $2 : "";
             $remotepath = $3;
             $scm = $4;
+            $upstream = $5;
 
             # Check the SCM is OK as early as possible
             die "Unknown SCM: $scm" if (($scm ne "darcs") and ($scm ne "git"));