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");
}