[Xml-compile] Endpoint parameter change in XML-compile-soap 2.21

[Mark Overmeer]

* Daniel Strini (dstrini at incognito.com) [110205 16:05]:
> Sorry, I made a mistake in referencing the previous XML-Compile-SOAP
> version I used where this worked.  The previous version was 2.08 

Ah, I think I found it.  In 2.20, a new $wsdl->endPoints function
got introduced, but it damaged the parameter.

In XML/Compile/SOAP/Operation.pm:
 sub compileTransporter(@)
 {  my ($self, %args) = @_;
    ...
 -  my $endpoints = $args{endpoint} || [];
 -  my @endpoints = ref $endpoints eq 'ARRAY' ? @$endpoints : ();
 +  if(my $endpoints = $args{endpoint})
 +  {   @endpoints = ref $endpoints eq 'ARRAY' ? @$endpoints : $endpoints;
 +  }
    unless(@endpoints)
    {   @endpoints = $self->endPoints;
        if(my $s = $args{server})
        {   s#^(\w+)://([^/]+)#$1://$s# for @endpoints;
        }
    }

Does this fix it?
-- 
Thanks for the report,

               MarkOv

------------------------------------------------------------------------
       Mark Overmeer MSc                                MARKOV Solutions
       Mark at Overmeer.net                          solutions at overmeer.net
http://Mark.Overmeer.net                   http://solutions.overmeer.net