import SOAP-WSDL 2.00_26 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_26
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_26.tar.gz

lib/SOAP/WSDL/Generator/Template/XSD/Server/POD/Operation.tt

@@ -4,7 +4,7 @@
     port_op = type.find_operation( definitions.get_targetNamespace, operation.get_name );
 port_op.get_documentation %]
 
- sub [% operation.get_name %](
+ sub [% operation.get_name %] {
     my ($self, $body, $header) = @_;
     # body is a ??? object - sorry, POD not implemented yet
     # header is a ??? object - sorry, POD not implemented yet

lib/SOAP/WSDL/Generator/Template/XSD/complexType/extension.tt

@@ -8,12 +8,15 @@ element_from = complexType.get_element;
 #
 # Sanity check: All original elements must be noted first
 #
+element_list = base_type.get_element;
 FOREACH element = base_type.get_element;
     IF element_from.${ loop.index }.get_name != element.get_name;
+#        element_list.push( element );
         THROW WSDL "${element.get_name} not found at position ${ loop.index } in extension type ${ complexType.get_name }";
     END;
 END;
 
+#complexType.set_element( element_list );
 
 -%]
 use base qw([% type_prefix %]::[% base_name.1.replace('\.', '::') %]);

lib/SOAP/WSDL/Generator/Visitor/Typemap.pm

@@ -123,7 +123,7 @@ sub visit_Part {
     # TODO: auto-generate element for RPC bindings
     if ( my $type_name = $part->get_type ) {
         # FIXME support RPC-style calls
-        die "unsupported global type <$type_name> found in part";
+        die "unsupported global type <$type_name> found in part ". $part->get_name();
     }
 
     # TODO factor out iterator or replace by lookup (probably better)