24 lines
729 B
Plaintext
24 lines
729 B
Plaintext
Index: RPC-XML-0.67/lib/RPC/XML.pm
|
|
===================================================================
|
|
--- RPC-XML-0.67.orig/lib/RPC/XML.pm
|
|
+++ RPC-XML-0.67/lib/RPC/XML.pm
|
|
@@ -1023,7 +1023,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;
|
|
}
|
|
|
|
# Again, only differs from struct in that it has some extra wrapped around it.
|
|
@@ -1314,6 +1316,7 @@ sub as_string
|
|
'</value></param></params>';
|
|
}
|
|
$text .= '</methodResponse>';
|
|
+ utf8::downgrade($text) if(utf8::is_utf8($text));
|
|
|
|
$text;
|
|
}
|