@repos = <IN>;
close IN;
- foreach (@repos) {
+ REPO: foreach (@repos) {
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$path = "$reporoot/$localpath";
}
else {
- $path = "$reporoot/$remotepath";
+ if ($remotepath =~ /^http:/) {
+ message "Ignoring $localpath; remote is http URL";
+ next REPO;
+ }
+ else {
+ $path = "$reporoot/$remotepath";
+ }
}
if (-d "$localpath/_darcs") {