From 81ffadc78e323a5cfb16ddf4ece218c8a55ad0f7 Mon Sep 17 00:00:00 2001 From: Gerhard Gonter <ggonter@gmail.com> Date: Tue, 8 May 2018 12:27:50 +0200 Subject: [PATCH] in UTF-8 mode, stdin should use layer :utf8 --- modules/util/csv.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/util/csv.pl b/modules/util/csv.pl index 975a698..da451b2 100755 --- a/modules/util/csv.pl +++ b/modules/util/csv.pl @@ -93,7 +93,7 @@ my $find_pattern= undef; # this is used for a pattern match my $search_string= undef; # this is used to select a certain value in a column my $max_items= undef; -sub set_utf8 { $UTF8= 1; binmode (STDOUT, ':utf8'); } +sub set_utf8 { $UTF8= 1; binmode (STDIN, ':utf8'); binmode (STDOUT, ':utf8'); } sub usage { system ("perldoc '$0'"); exit (0); } my @PAR= (); -- GitLab