foreach (@repos) {
chomp;
- if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
+ if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
- $tag = defined($2) ? $2 : "";
+ $tag = $2;
$remotepath = $3;
if ($checked_out_tree) {
darcs (@_, "--repodir", $localpath);
}
}
- elsif ($tag eq "") {
+ elsif ($tag eq "-") {
message "== Required repo $localpath is missing! Skipping";
}
else {
foreach (@repos) {
chomp;
- if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
+ if (/^([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
- $tag = defined($2) ? $2 : "";
+ $tag = $2;
$remotepath = $3;
if ($checked_out_tree) {
$path = "$repo_base/$remotepath";
}
- if (($tag eq "") || defined($tags{$tag})) {
+ if (($tag eq "-") || defined($tags{$tag})) {
if (-d $localpath) {
warning("$localpath already present; omitting");
}
}
END {
+ my $ec = $?;
+
message "== Checking for old bytestring repo";
if (-d "libraries/bytestring/_darcs") {
if ((system "darcs annotate --repodir libraries/bytestring --match 'hash 20080118173113-3fd76-d5b74c04372a297b585ebea4e16d524551ce5035' > /dev/null 2> /dev/null") == 0) {
}
}
+ message "== Checking for bytestring tarball";
+ if (-d "libraries/bytestring" && not -d "libraries/bytestring/_darcs") {
+ print <<EOF;
+============================
+ATTENTION!
+
+You have an old bytestring in your GHC tree!
+
+Please remove it (e.g. "rm -r libraries/bytestring"), and then run
+"./darcs-all get" to get the darcs repository.
+============================
+EOF
+ }
+
message "== Checking for unpulled tarball patches";
if ((system "darcs annotate --match 'hash 20090930200358-3fd76-cab3bf4a0a9e3902eb6dd41f71712ad3a6a9bcd1' > /dev/null 2> /dev/null") == 0) {
print <<EOF;
============================
EOF
}
+
+ $? = $ec;
}
main(@ARGV);