[libsoap-lite-perl] 03/09: Drop hashref_crash.patch, merged upstream.
gregor herrmann
gregoa at debian.org
Sat Dec 30 20:40:24 UTC 2017
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libsoap-lite-perl.
commit bf1c6c9840eae38941ca23a733f0946940eab58a
Author: gregor herrmann <gregoa at debian.org>
Date: Sat Dec 30 21:32:36 2017 +0100
Drop hashref_crash.patch, merged upstream.
---
debian/patches/hashref_crash.patch | 48 --------------------------------------
debian/patches/series | 1 -
2 files changed, 49 deletions(-)
diff --git a/debian/patches/hashref_crash.patch b/debian/patches/hashref_crash.patch
deleted file mode 100644
index 7f23f3c..0000000
--- a/debian/patches/hashref_crash.patch
+++ /dev/null
@@ -1,48 +0,0 @@
-Author: Ashish Shukla <wahjava at members.fsf.org>
-Subject: use 'ref' rather than 'UNIVERSAL::isa'
-Reviewed-by: Xavier Guimard <x.guimard at free.fr>
-Forwarded: https://github.com/redhotpenguin/soaplite/pull/37
-Bug: https://rt.cpan.org/Ticket/Display.html?id=62667
-Bug-Debian: https://bugs.debian.org/602056
-Last-Update: 2017-12-19
-
---- a/lib/SOAP/Lite.pm
-+++ b/lib/SOAP/Lite.pm
-@@ -3853,15 +3853,28 @@
- my($value) = $_->value; # take first value
-
- # fillup parameters
-- UNIVERSAL::isa($_[$param] => 'SOAP::Data')
-- ? $_[$param]->SOAP::Data::value($value)
-- : UNIVERSAL::isa($_[$param] => 'ARRAY')
-- ? (@{$_[$param]} = @$value)
-- : UNIVERSAL::isa($_[$param] => 'HASH')
-- ? (%{$_[$param]} = %$value)
-- : UNIVERSAL::isa($_[$param] => 'SCALAR')
-- ? (${$_[$param]} = $$value)
-- : ($_[$param] = $value)
-+ use Scalar::Util 'reftype';
-+ if ( reftype( $_[$param] ) ) {
-+ if ( reftype( $_[$param] ) eq 'SCALAR' ) {
-+ ${ $_[$param] } = $$value;
-+ }
-+ elsif ( reftype( $_[$param] ) eq 'ARRAY' ) {
-+ @{ $_[$param] } = @$value;
-+ }
-+ elsif ( reftype( $_[$param] ) eq 'HASH' ) {
-+ if ( eval { $_[$param]->isa('SOAP::Data') } ) {
-+ $_[$param]->SOAP::Data::value($value);
-+ }
-+ elsif ( reftype($value) eq 'REF' ) {
-+ %{ $_[$param] } = %$$value;
-+ }
-+ else { %{ $_[$param] } = %$value; }
-+ }
-+ else { $_[$param] = $value; }
-+ }
-+ else {
-+ $_[$param] = $value;
-+ }
- }
- }
- }
diff --git a/debian/patches/series b/debian/patches/series
index a5fd6e1..1817668 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
-hashref_crash.patch
spelling-error.patch
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libsoap-lite-perl.git
More information about the Pkg-perl-cvs-commits
mailing list