--- couchdb/design-couch.pl	2009/08/30 11:56:31	367
+++ couchdb/design-couch.pl	2009/08/30 12:07:15	371
@@ -46,7 +46,7 @@
 
 sub svn {
 	my $path = shift;
-	return if $path =~ m{(_rev|.*\.(push|pull)\.js)$};
+	return if $path =~ m{(_.*|.*\.(push|pull)\.js)$};
 	system "svn add --parents $path";
 }
 
@@ -112,6 +112,8 @@
 
 } elsif ( $command eq 'push' ) {
 
+	$ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";
+
 	my $json;
 
 	find({ no_chdir => 1, wanted => sub {