From 67f8cc08cdd51a38356f3b971f5627921782df6e Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Tue, 20 Apr 2010 12:30:52 -0700
Subject: [PATCH] Add a util for updating all svn repos in a directory

---
 bin/sup-all | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 bin/sup-all

diff --git a/bin/sup-all b/bin/sup-all
new file mode 100755
index 0000000..1de9e8e
--- /dev/null
+++ b/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;