Add a util for updating all svn repos in a directory

bin/sup-all

@@ -0,0 +1,20 @@
+#!/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;