blob: 728a0e50d3f7848c32fd9acf3a08c354e1dc58cb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/env perl
my $all = shift;
@ARGV = "REPOSITORIES";
@ARGV = "etc/REPOSITORIES" if -e "etc/REPOSITORIES";
while (<>) {
s/^-/*/ if $all;
next unless my ($url) = /^\* (.*)/;
next if $ENV{PULL_ALL_SKIP} && $url =~ $ENV{PULL_ALL_SKIP};
print "Pulling from $url...\n";
system("darcs pull --no-set-default $url");
}
|