diff options
author | Ian Lynagh <igloo@earth.li> | 2008-08-07 20:32:58 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-08-07 20:32:58 +0000 |
commit | 4260f0c9b38d9b8b5851eae021d0a45a90719ef0 (patch) | |
tree | c43aadc4af94a714bed97f789856a636ca6afda7 /darcs-all | |
parent | 2cd930397966d27a221998c8ac060151e2027e90 (diff) | |
download | haskell-4260f0c9b38d9b8b5851eae021d0a45a90719ef0.tar.gz |
Fix darcs-all get
Diffstat (limited to 'darcs-all')
-rw-r--r-- | darcs-all | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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: $_"; } } |