Description: fix invalid lvalue assignments with perl 5.18
 also fixes a missing ->[0] after get_port()
Author: Lee Johnson <leejo@cpan.org>
Bug: https://rt.cpan.org/Ticket/Display.html?id=74257
Bug-Debian: http://bugs.debian.org/720964

--- a/lib/SOAP/WSDL.pm
+++ b/lib/SOAP/WSDL.pm
@@ -166,7 +166,7 @@ sub _wsdl_get_service :PRIVATE {
     my $wsdl = $definitions_of{ $ident };
     return $service_of{ $ident } = $servicename_of{ $ident }
         ? $wsdl->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } )
-        : $service_of{ $ident } = $wsdl->get_service()->[ 0 ];
+        : $wsdl->get_service()->[ 0 ];
 } ## end sub _wsdl_get_service
 
 sub _wsdl_get_port :PRIVATE  {
@@ -174,8 +174,8 @@ sub _wsdl_get_port :PRIVATE  {
     my $wsdl = $definitions_of{ $ident };
     my $ns   = $wsdl->get_targetNamespace();
     return $port_of{ $ident } = $portname_of{ $ident }
-        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )
-        : $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ];
+        ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )->[0]
+        : $service_of{ $ident }->get_port()->[ 0 ];
 }
 
 sub _wsdl_get_binding :PRIVATE {