SHA256
1
0
forked from pool/perl
perl/perl-netcmdutf8.diff

25 lines
693 B
Diff

--- ./cpan/libnet/lib/Net/Cmd.pm.orig 2016-03-01 12:33:02.000000000 +0000
+++ ./cpan/libnet/lib/Net/Cmd.pm 2016-05-09 11:50:16.976787779 +0000
@@ -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);