Show
Ignore:
Timestamp:
11/13/08 01:02:08 (5 years ago)
Author:
daisuke
Message:

allow passing path

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/App-Benchmark-WAF/trunk/lib/App/Benchmark/WAF.pm

    r23441 r23443  
    3636    $uri->host( $config->our_remote_addr() ); 
    3737    $uri->port( $config->port ); 
    38      
    39     diag("running $type in $mode"); 
    40     $uri->path( join('/', $mode, $type, 'index.cgi' ) ); 
     38    $uri->path( $args{path} || join('/', $mode, $type, 'index.cgi' ) ); 
     39    diag("running $type in $mode ($uri)"); 
    4140 
    4241    # capture output...