Revision 388

Date:
2009/09/07 10:30:19
Author:
dpavlin
Revision Log:
fix push so it works now
Files:

Legend:

 
Added
 
Removed
 
Modified

  • couchdb/design-couch.pl

     
    111 111
    112 112 }
    113 113
    114 sub push_database_design {
    114 sub push_design {
    115 115 $design = shift;
    116 116
    117 117 $ua->request( HTTP::Request::Common::PUT( "http://localhost:5984/$database" ) ) && warn "# created database $database\n";
    … …  
    196 196
    197 197 if ( $command eq 'push' ) {
    198 198
    199 my @designs = map { (split(m{/},2))[0] } @{ glob '*/views' };
    199 my @designs = map { s{/.+$}{}; $_ } glob '*/views';
    200 200 @designs = ( $design ) if $design;
    201 201
    202 warn "XX ",dump( @designs );
    203
    204 202 foreach my $design ( @designs ) {
    205 203
    206 204 chdir $design;