- for my $dir (@top_dirs) {
- if (-d $dir && -d "$dir/_darcs") {
- darcs (@_, "--repodir", $dir);
- }
- else {
- message "== $dir not present or not a repository; skipping";
- }
- }
- for my $path (<libraries/*/_darcs>) {
- chomp $path;
- if ($path =~ m#/(.*)/#) {
- my $pkg = $1;
- darcs (@_, "--repodir", "libraries/$pkg");
- }
- else {
- die "that pattern can't fail!";
- }
- }
- @packages = `cat libraries/boot-packages`;
- # @packages = `cat libraries/boot-packages libraries/extra-packages`;
- for my $pkg (@packages) {
- chomp $pkg;
- if (! -d "libraries/$pkg") {
- warning("$pkg doesn't exist, use 'darcs-all get' to get it");
- }
- }
-}