Merge branch 'rel-10_1' into rel-11_0

Author: bschmalhofer

Kernel/GenericInterface/Transport/HTTP/SOAP.pm

@@ -28,6 +28,7 @@ use PerlIO;    ## no perlimports, not sure whether this is needed
 use HTTP::Status    qw(status_message);
 use Plack::Response ();
 use SOAP::Lite;    # for enabling debugging import +trace => 'all'
+use Text::Trim qw(rtrim);
 
 # OTOBO modules
 use Kernel::System::VariableCheck  qw(:all);
@@ -211,6 +212,10 @@ sub ProviderProcessRequest {
         Data    => $Content,
     );
 
+    # Normalize Content by removing trailing white space.
+    # This make SOAP::Lite work with XML::Parser >= 1.48.
+    rtrim($Content);
+
     # Deserialize data.
     my $Deserialized      = eval { SOAP::Deserializer->deserialize($Content); };
     my $DeserializedFault = $@ || '';

scripts/test/GenericInterface/Transport/HTTP/SOAP/ContentCharset.t

@@ -110,6 +110,10 @@ plan( scalar @Tests );
 
 for my $Test (@Tests) {
 
+    # This test request XML has a trailing newline. There have been problems with that
+    # when XML::Parser >= 1.48 is used.
+    # Therefore Kernel::GenericInterface::Transport::HTTP::SOAP::ProviderProcessRequest()
+    # has been tweaked to trim trailing white space.
     my $Request = <<"END_XML";
 <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tic="http://www.otobo.org/TicketConnector/">
    <soapenv:Header/>