--- couchdb/design-couch.pl	2009/08/30 13:33:09	374
+++ couchdb/design-couch.pl	2009/09/07 10:30:19	388
@@ -111,7 +111,7 @@
 
 }
 
-sub push_database_design {
+sub push_design {
 	$design = shift;
 
 	$ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";
@@ -196,11 +196,9 @@
 
 if ( $command eq 'push' ) {
 
-	my @designs = map { (split(m{/},2))[0] } @{ glob '*/views' };
+	my @designs = map { s{/.+$}{}; $_ } glob '*/views';
 	@designs = ( $design ) if $design;
 
-warn "XX ",dump( @designs );
-
 	foreach my $design ( @designs ) {
 
 		chdir $design;