Bug 426899: Hack SOAP::Lite to encode upper-ASCII characters correctly for the WebService.

Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=LpSolit

Bug 426899: Hack SOAP::Lite to encode upper-ASCII characters correctly for the WebService.
43b6f4a4 · mkanat%bugzilla.org · 6c34f604 · 43b6f4a4
Commit 43b6f4a4 authored Apr 29, 2008 by mkanat%bugzilla.org
Show whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

WebService.pm Bugzilla/WebService.pm +10 -0

No files found.
--- a/Bugzilla/WebService.pm
+++ b/Bugzilla/WebService.pm
@@ -112,6 +112,16 @@ 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);
+}
+
 1;

 __END__