- 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 $pkg (`cat libraries/core-packages libraries/extra-packages`) {
- chomp $pkg;
- if (-d "libraries/$pkg") {
- darcs (@_, "--repodir", "libraries/$pkg");
- }
- else {
- warning("$pkg doesn't exist, use 'darcs-all get' to get it");
- }
- }
-}