[libsoap-lite-perl] 01/01: add patch fixing triggering multipart handling in HTTP server with certain responses

[Damyan Ivanov]

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

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

commit bdd37af7aa66a45dfa600a4e8cdfec5022eb99de
Author: Damyan Ivanov <dmn at debian.org>
Date:   Fri Jan 10 11:11:22 2014 +0000

    add patch fixing triggering multipart handling in HTTP server with certain responses
    
    Closes: #734470. Author: Michael Albinus
---
 debian/changelog                       |  3 +++
 debian/patches/http-content-type.patch | 17 +++++++++++++++++
 debian/patches/series                  |  1 +
 3 files changed, 21 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 3177343..d8fab0c 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -20,6 +20,9 @@ libsoap-lite-perl (1.08-1) UNRELEASED; urgency=low
 
   [ Damyan Ivanov ]
   * remove build-dependency on libxmlrpc-lite-perl
+  * add patch from Michael Albinus fixing triggering multipart handling in
+    HTTP server with certain responses
+    Closes: #734470
 
  -- Florian Schlichting <fsfs at debian.org>  Wed, 25 Dec 2013 19:25:17 +0100
 
diff --git a/debian/patches/http-content-type.patch b/debian/patches/http-content-type.patch
new file mode 100644
index 0000000..1bb339c
--- /dev/null
+++ b/debian/patches/http-content-type.patch
@@ -0,0 +1,17 @@
+Description: stricter match for multi-part content types
+ Without this, multipart flag could be triggerred by unrelated headers
+Bug-Debian: http://bugs.debian.org/734470
+Author: Michael Albinus <michael.albinus at gmx.de>
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=92025
+
+--- a/lib/SOAP/Transport/HTTP.pm
++++ b/lib/SOAP/Transport/HTTP.pm
+@@ -477,7 +477,7 @@ sub make_response {
+ # this next line does not look like a good test to see if something is multipart
+ # perhaps a /content-type:.*multipart\//gi is a better regex?
+     my ($is_multipart) =
+-      ( $response =~ /content-type:.* boundary="([^\"]*)"/im );
++      ( $response =~ /^content-type:.* boundary="([^\"]*)"/im );
+ 
+     $self->response(
+         HTTP::Response->new(
diff --git a/debian/patches/series b/debian/patches/series
index f74c333..383e1e9 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 hashref_crash.patch
+http-content-type.patch

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