diff --git a/lib/SOAP/WSDL.pm b/lib/SOAP/WSDL.pm index 6d839f3..c9f556b 100644 --- a/lib/SOAP/WSDL.pm +++ b/lib/SOAP/WSDL.pm @@ -174,7 +174,7 @@ 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 } ) + ? $service_of{ $ident }->get_port( $ns, $portname_of{ $ident } )->[ 0 ] : ( $port_of{ $ident } = $service_of{ $ident }->get_port()->[ 0 ] ); }