Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.3
perl-RPC-XML
RPC-XML-0.60-fix-utf8.dif
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor