[libsoap-wsdl-perl] 01/01: add patch fixing invalid lvalue assignments with perl 5.18

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository libsoap-wsdl-perl.

commit 3a93a7350eff9618ba21451707cc0a8b2d08e15f
Author: Damyan Ivanov <dmn at debian.org>
Date:   Tue Jan 14 15:27:46 2014 +0000

    add patch fixing invalid lvalue assignments with perl 5.18
---
 debian/changelog                              |  3 +++
 debian/patches/lvalue-modification-5.18.patch | 22 ++++++++++++++++++++++
 debian/patches/series                         |  1 +
 3 files changed, 26 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index cfa88cb..beaf555 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,9 @@ libsoap-wsdl-perl (2.00.10-2) UNRELEASED; urgency=low
   * debian/copyright: migrate pre-1.0 format to 1.0 using "cme fix dpkg-
     copyright"
 
+  [ Damyan Ivanov ]
+  * add patch fixing invalid lvalue assignments with perl 5.18
+
  -- Ansgar Burchardt <ansgar at debian.org>  Wed, 27 Jul 2011 18:47:44 +0200
 
 libsoap-wsdl-perl (2.00.10-1) unstable; urgency=low
diff --git a/debian/patches/lvalue-modification-5.18.patch b/debian/patches/lvalue-modification-5.18.patch
new file mode 100644
index 0000000..5213ba3
--- /dev/null
+++ b/debian/patches/lvalue-modification-5.18.patch
@@ -0,0 +1,22 @@
+--- 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 {
diff --git a/debian/patches/series b/debian/patches/series
index c6a5409..41f98b6 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 pod-whatis.patch
 pod-spelling.patch
+lvalue-modification-5.18.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoap-wsdl-perl.git