Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Alexander_Naumov:SLE12
perl
perl-netcmdutf8.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-netcmdutf8.diff of Package perl
--- ./cpan/libnet/Net/Cmd.pm.orig 2009-09-03 14:32:13.000000000 +0000 +++ ./cpan/libnet/Net/Cmd.pm 2009-09-03 14:47:30.000000000 +0000 @@ -226,6 +226,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 is_utf8($str); + my $len = length $str; my $swlen; @@ -473,6 +477,10 @@ sub rawdatasend { return 0 unless defined(fileno($cmd)); + # encode to individual utf8 bytes if + # $line is a string (in internal UTF-8) + utf8::encode($line) if 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
