Michael Schröder
554142397d
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=151
27 lines
719 B
Diff
27 lines
719 B
Diff
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);
|
|
|