24 lines
725 B
Plaintext
24 lines
725 B
Plaintext
Index: RPC-XML-0.60/lib/RPC/XML.pm
|
|
===================================================================
|
|
--- RPC-XML-0.60.orig/lib/RPC/XML.pm
|
|
+++ RPC-XML-0.60/lib/RPC/XML.pm
|
|
@@ -969,7 +969,9 @@ sub as_string
|
|
{
|
|
my $self = shift;
|
|
|
|
- '<fault><value>' . $self->SUPER::as_string . '</value></fault>';
|
|
+ my $text = '<fault><value>' . $self->SUPER::as_string . '</value></fault>';
|
|
+ utf8::downgrade($text) if(utf8::is_utf8($text));
|
|
+ $text;
|
|
}
|
|
|
|
# Because of the slight diff above, length() has to be different from struct
|
|
@@ -1249,6 +1251,7 @@ sub as_string
|
|
'</value></param></params>';
|
|
}
|
|
$text .= '</methodResponse>';
|
|
+ utf8::downgrade($text) if(utf8::is_utf8($text));
|
|
|
|
$text;
|
|
}
|