#!/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;