testing/perl
SHA256
3
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

......

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=140
This commit is contained in:
Michael Schröder 2016-05-09 12:52:12 +00:00 committed by Git OBS Bridge
parent 9d75405fca
commit 5ca0f14369
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl-netcmdutf8.diff
View File

@ -6,7 +6,7 @@
+ # encode to individual utf8 bytes if
+ # $str is a string (in internal UTF-8)
+ utf8::encode($str) if is_utf8($str);
+ utf8::encode($str) if utf8::is_utf8($str);
+
$cmd->debug_print(1, $str)
if ($cmd->debug);
@ -17,7 +17,7 @@
+ # encode to individual utf8 bytes if
+ # $line is a string (in internal UTF-8)
+ utf8::encode($line) if is_utf8($line);
+ utf8::encode($line) if utf8::is_utf8($line);
+
return 1
unless length($line);