--- couchdb/design-couch.pl	2009/08/18 12:18:39	248
+++ couchdb/design-couch.pl	2009/08/29 14:43:32	341
@@ -23,6 +23,11 @@
 my ( $command, $database, $design ) = @ARGV;
 die "usage: $0 [push|pull] database design\n" unless $database && $design;
 
+if ( ! -e $design && $command eq 'pull') {
+	warn "# create new design $design\n";
+	mkdir $design;
+}
+
 chdir $design || die "can't find $design: $!";
 
 my $ua = LWP::UserAgent->new;
@@ -103,6 +108,7 @@
 	find({ no_chdir => 1, wanted => sub {
 		my $path = $File::Find::name;
 		return unless -f $path;
+		return if $path =~ m{/\.svn};
 
 warn "## $path\n";