X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=sync-all;h=ac06af123a5d4c4eae68b3a5551134ae5833f1d9;hp=8b41c97711ad3f2ea147af18984e3d65679b0ae2;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hpb=173c408981adb7d7b4f35d466c984d13f5d1194f diff --git a/sync-all b/sync-all index 8b41c97..ac06af1 100755 --- a/sync-all +++ b/sync-all @@ -142,13 +142,12 @@ sub parsePackages { foreach (@repos) { chomp; $lineNum++; - if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) { + if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) { my %line; $line{"localpath"} = $1; $line{"tag"} = $2; $line{"remotepath"} = $3; $line{"vcs"} = $4; - $line{"upstream"} = $5; push @packages, \%line; } elsif (! /^(#.*)?$/) { @@ -198,7 +197,6 @@ sub scmall { my $tag; my $remotepath; my $scm; - my $upstream; my $line; my $branch_name; my $subcommand; @@ -252,7 +250,6 @@ sub scmall { $tag = $$line{"tag"}; $remotepath = $$line{"remotepath"}; $scm = $$line{"vcs"}; - $upstream = $$line{"upstream"}; # Check the SCM is OK as early as possible die "Unknown SCM: $scm" if (($scm ne "darcs") and ($scm ne "git"));