--- couchdb/design-couch.pl	2009/08/18 12:18:39	248
+++ couchdb/design-couch.pl	2009/08/18 14:30:06	252
@@ -103,6 +103,7 @@
 	find({ no_chdir => 1, wanted => sub {
 		my $path = $File::Find::name;
 		return unless -f $path;
+		return if $path =~ m{/\.svn};
 
 warn "## $path\n";