File RPC-XML-0.60-fix-utf8.dif of Package perl-RPC-XML

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;
 }
openSUSE Build Service is sponsored by