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); Index: t/porting/customized.dat =================================================================== --- t/porting/customized.dat.orig +++ t/porting/customized.dat @@ -164,7 +164,7 @@ bignum cpan/bignum/lib/bignum.pm e999973 bignum cpan/bignum/lib/bigrat.pm 7fccc9df30e43dbbae6e5ea91b26c8046545c9a9 bignum cpan/bignum/lib/Math/BigFloat/Trace.pm a6b4b995e18f4083252e6dc72e9bef69671893dd bignum cpan/bignum/lib/Math/BigInt/Trace.pm d9596963673760cae3eeeb752c1eeeec50bb2290 -libnet cpan/libnet/lib/Net/Cmd.pm a44a10c939a4c35f923c4638054178c32f1d283a +libnet cpan/libnet/lib/Net/Cmd.pm 3f34ca6479008268714bd02962624d270d04a01e libnet cpan/libnet/lib/Net/Config.pm 2167a2653b40c9f94e6d52574829532e62394a17 libnet cpan/libnet/lib/Net/Domain.pm 1bbed50f70fd1ff3e1cdf087b19a9349cddfaced libnet cpan/libnet/lib/Net/FTP.pm 40dba553c8d44e1530daec2d07a6e50910401f2e