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