don't push .svn directories

[pxelator] / couchdb / design-couch.pl

diff --git a/couchdb/design-couch.pl b/couchdb/design-couch.pl
index 4cf9606..3ef9e37 100755 (executable)
--- a/couchdb/design-couch.pl
+++ b/couchdb/design-couch.pl
@@ -103,6 +103,7 @@ if ( $command eq 'pull' ) {
        find({ no_chdir => 1, wanted => sub {
                my $path = $File::Find::name;
                return unless -f $path;
+               return if $path =~ m{/\.svn};
 
 warn "## $path\n";