[libsoap-lite-perl] 03/09: Drop hashref_crash.patch, merged upstream.

[gregor herrmann]

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