Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:bmwiedemann:reproducible:distribution:ring0rb
perl
perl-netcmdutf8.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-netcmdutf8.diff of Package perl
Index: cpan/libnet/lib/Net/Cmd.pm =================================================================== --- cpan/libnet/lib/Net/Cmd.pm.orig +++ cpan/libnet/lib/Net/Cmd.pm @@ -290,6 +290,10 @@ sub command { $str = $cmd->toascii($str) if $tr; $str .= "\015\012"; + # encode to individual utf8 bytes if + # $str is a string (in internal UTF-8) + utf8::encode($str) if utf8::is_utf8($str); + $cmd->debug_print(1, $str) if ($cmd->debug); @@ -525,6 +529,10 @@ sub rawdatasend { return 0 if $cmd->_is_closed; + # encode to individual utf8 bytes if + # $line is a string (in internal UTF-8) + utf8::encode($line) if utf8::is_utf8($line); + return 1 unless length($line);
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
