diff --git a/lib/SOAP/WSDL.pm b/lib/SOAP/WSDL.pm index 6a753ea..6d839f3 100644 --- a/lib/SOAP/WSDL.pm +++ b/lib/SOAP/WSDL.pm @@ -165,8 +165,8 @@ sub _wsdl_get_service :PRIVATE { my $ident = ident shift; 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->find_service( $wsdl->get_targetNamespace() , $servicename_of{ $ident } ) + : ( $service_of{ $ident } = $wsdl->get_service()->[ 0 ] ); } ## end sub _wsdl_get_service sub _wsdl_get_port :PRIVATE { @@ -175,7 +175,7 @@ sub _wsdl_get_port :PRIVATE { 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 ]; + : ( $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ] ); } sub _wsdl_get_binding :PRIVATE {