| Subject: | Wrong WSDL generation when with complex types |
There is a bug in the generated WSDL for certain cases. The attached
patch easily fixes the issue, and is quite auto-explicative.
| Subject: | podwsdl.patch |
diff -rpu marado/Pod-WSDL-0.03/lib/Pod/WSDL.pm /usr/lib/perl5/site_perl/5.8.6/Pod/WSDL.pm
--- marado/Pod-WSDL-0.03/lib/Pod/WSDL.pm 2005-07-20 08:05:01.000000000 +0100
+++ /usr/lib/perl5/site_perl/5.8.6/Pod/WSDL.pm 2006-04-17 16:46:11.000000000 +0100
@@ -178,7 +178,8 @@ sub _initTypes {
my $me = shift;
for my $method (@{$me->{_methods}}) {
- for my $param (@{$method->params}) {
+ for my $param (@{$method->params},$method->return) {
+ next unless $param;
unless (exists $XSD_STANDARD_TYPE_MAP{$param->type}) {
$me->_addType($param->type, $param->array);
} elsif ($param->array) {