From: Ian Lynagh <igloo@earth.li>
Date: Thu, 7 Aug 2008 20:32:58 +0000 (+0000)
Subject: Fix darcs-all get
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4260f0c9b38d9b8b5851eae021d0a45a90719ef0

Fix darcs-all get
---

diff --git a/darcs-all b/darcs-all
index 0272df5..6c8b406 100644
--- a/darcs-all
+++ b/darcs-all
@@ -98,7 +98,7 @@ sub darcsget {
     open IN, "< packages" or die "Can't open packages file";
     while (<IN>) {
         chomp;
-        if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+)/) {
+        if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
             $localpath = $1;
             $tag = defined($2) ? $2 : "";
             $remotepath = $3;
@@ -119,7 +119,7 @@ sub darcsget {
                 }
             }
         }
-        elsif (! /^$/) {
+        elsif (! /^(#.*)?$/) {
             die "Bad line: $_";
         }
     }