--- couchdb/design-couch.pl	2009/08/18 14:30:06	252
+++ 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;