perl/perl-netcmdutf8.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);
 
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
Accepting request 494775 from home:coolo:branches:openSUSE:Factory - Fix building with zlib-1.2.10 (RT#119762): * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch - Update to perl-5.24.1 -Di switch is now required for PerlIO debugging output Previously PerlIO debugging output would be sent to the file specified by the "PERLIO_DEBUG" environment variable if perl wasn't running setuid and the -T or -t switches hadn't been parsed yet. If perl performed output at a point where it hadn't yet parsed its switches this could result in perl creating or overwriting the file named by "PERLIO_DEBUG" even when the -T switch had been supplied. Perl now requires the -Di switch to produce PerlIO debugging output. By default this is written to "stderr", but can optionally be redirected to a file by setting the "PERLIO_DEBUG" environment variable. If perl is running setuid or the -T switch was supplied "PERLIO_DEBUG" is ignored and the debugging output is sent to "stderr" as for any other -D switch. Core modules and tools no longer search "." for optional modules The tools and many modules supplied in core no longer search the default current directory entry in @INC for optional modules. For example, Storable will remove the final "." from @INC before trying to load Log::Agent. This prevents an attacker injecting an optional module into a process run by another user where the current directory is writable by the attacker, e.g. the /tmp directory. - Refresh patches OBS-URL: https://build.opensuse.org/request/show/494775 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=148 2017-05-17 12:00:29 +02:00			`Index: cpan/libnet/lib/Net/Cmd.pm`
			`===================================================================`
			`--- cpan/libnet/lib/Net/Cmd.pm.orig`
			`+++ cpan/libnet/lib/Net/Cmd.pm`
Update to 5.24.0 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=139 2016-05-09 14:03:01 +02:00			`@@ -290,6 +290,10 @@ sub command {`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=27 2009-06-12 16:26:43 +02:00			`$str = $cmd->toascii($str) if $tr;`
			`$str .= "\015\012";`

			`+ # encode to individual utf8 bytes if`
			`+ # $str is a string (in internal UTF-8)`
...... OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=140 2016-05-09 14:52:12 +02:00			`+ utf8::encode($str) if utf8::is_utf8($str);`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=27 2009-06-12 16:26:43 +02:00			`+`
Update to 5.24.0 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=139 2016-05-09 14:03:01 +02:00			`$cmd->debug_print(1, $str)`
			`if ($cmd->debug);`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=27 2009-06-12 16:26:43 +02:00
Update to 5.24.0 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=139 2016-05-09 14:03:01 +02:00			`@@ -525,6 +529,10 @@ sub rawdatasend {`
Accepting request 313011 from home:hsk17:branches:devel:languages:perl update to 5.22.0 regarding the .spec file: i have updated the "(Provides\|Obsoletes): perl-*" directives to reflect the module versions provided by perl-5.22.0. but only for the modules that already were mentioned in the .spec file. i cannot judge why these are in the .spec file while many others are not. OBS-URL: https://build.opensuse.org/request/show/313011 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=130 2015-06-23 21:23:16 +02:00			`return 0`
			`if $cmd->_is_closed;`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=27 2009-06-12 16:26:43 +02:00
			`+ # encode to individual utf8 bytes if`
			`+ # $line is a string (in internal UTF-8)`
...... OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=140 2016-05-09 14:52:12 +02:00			`+ utf8::encode($line) if utf8::is_utf8($line);`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=27 2009-06-12 16:26:43 +02:00			`+`
			`return 1`
			`unless length($line);`

Accepting request 494775 from home:coolo:branches:openSUSE:Factory - Fix building with zlib-1.2.10 (RT#119762): * Compress-Raw-Zlib-2.071-Adapt-tests-to-zlib-1.2.11.patch - Update to perl-5.24.1 -Di switch is now required for PerlIO debugging output Previously PerlIO debugging output would be sent to the file specified by the "PERLIO_DEBUG" environment variable if perl wasn't running setuid and the -T or -t switches hadn't been parsed yet. If perl performed output at a point where it hadn't yet parsed its switches this could result in perl creating or overwriting the file named by "PERLIO_DEBUG" even when the -T switch had been supplied. Perl now requires the -Di switch to produce PerlIO debugging output. By default this is written to "stderr", but can optionally be redirected to a file by setting the "PERLIO_DEBUG" environment variable. If perl is running setuid or the -T switch was supplied "PERLIO_DEBUG" is ignored and the debugging output is sent to "stderr" as for any other -D switch. Core modules and tools no longer search "." for optional modules The tools and many modules supplied in core no longer search the default current directory entry in @INC for optional modules. For example, Storable will remove the final "." from @INC before trying to load Log::Agent. This prevents an attacker injecting an optional module into a process run by another user where the current directory is writable by the attacker, e.g. the /tmp directory. - Refresh patches OBS-URL: https://build.opensuse.org/request/show/494775 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=148 2017-05-17 12:00:29 +02:00			`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`