Skip Menu |
 

This queue is for tickets about the Pod-WSDL CPAN distribution.

Report information
The Basics
Id: 19509
Status: resolved
Priority: 0/
Queue: Pod-WSDL

People
Owner: Nobody in particular
Requestors: Marcos.Marado [...] sonae.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.03
Fixed in: (no value)



Subject: Wrong WSDL generation when with complex types
Download (untitled) / with headers
text/plain 130b
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
Download podwsdl.patch
text/x-diff 738b
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) {


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.