You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
298 B
20 lines
298 B
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use Cwd;
|
|
|
|
my $cwd = getcwd;
|
|
my @repos;
|
|
|
|
for my $dir (<*/>) {
|
|
push @repos, $dir if -e "$dir/.svn";
|
|
}
|
|
|
|
for my $repo (@repos) {
|
|
chdir $repo;
|
|
print "svn upping: $repo\n";
|
|
system("svn up");
|
|
chdir $cwd;
|
|
}
|
|
|
|
print "No svn repos found\n" unless @repos;
|
|
|