diff options
author | mkanat%bugzilla.org <> | 2009-09-04 21:29:29 +0000 |
---|---|---|
committer | mkanat%bugzilla.org <> | 2009-09-04 21:29:29 +0000 |
commit | 9fb278fb217bf5e975f3b57daa2e81ac349084ed (patch) | |
tree | fcf46f33ab70a3cf24f66a58457b5b68d29d1444 | |
parent | Bug 475403: A RHEL SysV Init Script for jobqueue.pl (diff) | |
download | bugzilla-9fb278fb217bf5e975f3b57daa2e81ac349084ed.tar.gz bugzilla-9fb278fb217bf5e975f3b57daa2e81ac349084ed.tar.bz2 bugzilla-9fb278fb217bf5e975f3b57daa2e81ac349084ed.zip |
Bug 486306: Truncated XML-RPC response (incorrect content-length header)
Patch by Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=LpSolit
-rw-r--r-- | Bugzilla/Install/Requirements.pm | 6 | ||||
-rw-r--r-- | Bugzilla/WebService/Server/XMLRPC.pm | 10 |
2 files changed, 3 insertions, 13 deletions
diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm index fce49f286..8050231d9 100644 --- a/Bugzilla/Install/Requirements.pm +++ b/Bugzilla/Install/Requirements.pm @@ -224,9 +224,9 @@ sub OPTIONAL_MODULES { { package => 'SOAP-Lite', module => 'SOAP::Lite', - version => 0, - # These versions (0.70 -> 0.710.05) are affected by bug 468009 - blacklist => ['^0\.70', '^0\.710?\.0[1-5]$'], + # 0.710.04 is required for correct UTF-8 handling, but .04 and .05 are + # affected by bug 468009. + version => '0.710.06', feature => 'XML-RPC Interface' }, { diff --git a/Bugzilla/WebService/Server/XMLRPC.pm b/Bugzilla/WebService/Server/XMLRPC.pm index 8954969c7..fb3356715 100644 --- a/Bugzilla/WebService/Server/XMLRPC.pm +++ b/Bugzilla/WebService/Server/XMLRPC.pm @@ -161,16 +161,6 @@ sub new { return $self; } -sub as_string { - my $self = shift; - my ($value) = @_; - # Something weird happens with XML::Parser when we have upper-ASCII - # characters encoded as UTF-8, and this fixes it. - utf8::encode($value) if utf8::is_utf8($value) - && $value =~ /^[\x00-\xff]+$/; - return $self->SUPER::as_string($value); -} - # Here the XMLRPC::Serializer is extended to use the XMLRPC nil extension. sub encode_object { my $self = shift; |