mirror of https://github.com/apache/jclouds.git
Modified perl script to cope with commands that have no parameters
git-svn-id: http://jclouds.googlecode.com/svn/trunk@847 3d8758e0-26b5-11de-8745-db77d3ebf521
This commit is contained in:
parent
feca1c0085
commit
350469d618
|
@ -162,11 +162,15 @@ sub build_command {
|
|||
->look_up( '_tag', 'div', 'class', 'section' );
|
||||
$$command{options}->{example} = ${requestExampleDiv}->as_HTML();
|
||||
|
||||
my @{parameterRows} = $tree->look_down(
|
||||
my ${reqParamTBody} = $tree->look_down(
|
||||
'_tag', 'h2',
|
||||
'id', "ApiReference-query-$$command{simpleName}-Request"
|
||||
)->look_up( '_tag', 'div', 'class', 'section' )
|
||||
->look_down( '_tag', 'tbody' )->look_down( '_tag', 'tr' );
|
||||
->look_down( '_tag', 'tbody' );
|
||||
my @{parameterRows};
|
||||
if ( defined( $reqParamTBody) ) {
|
||||
@{parameterRows} = ${reqParamTBody}->look_down( '_tag', 'tr' );
|
||||
}
|
||||
|
||||
my @optionalParameters;
|
||||
my @requiredParameters;
|
||||
|
@ -214,7 +218,7 @@ sub build_command {
|
|||
}
|
||||
$tree->eof;
|
||||
$tree->delete;
|
||||
print_command($command);
|
||||
# print_command($command);
|
||||
return $command;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue