dinislage/SOAP-WSDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix two instances of the "Can't modify non-lvalue subroutine call at lib/SOAP/WSDL.pm line 167." error.

Browse Source 
it looks like the author wrote

    return $a ? $b : $c = $d

Intending it to mean:

    return $a ? $b : ($c = $d);

... but perl parses it as:

    return ( $a ? $b : $c) = $d;

... and perl 5.16 is more astute about lvalue errors like that.
This commit is contained in:
Scott Walters
2014-08-20 08:37:33 -04:00
parent 9023aa06a4
commit 001c36f8e8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/SOAP/WSDL.pm
+3 -3
View File
@@ -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 {