From 86a75ae4dafd1412879c9dec809e0d1304dd6fe0 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Thu, 15 Nov 2018 20:42:13 +0100
Subject: [PATCH] added binmode :utf8 for filelist and stdout
---
textarchive/lib/md5cat.pm | 1 +
textarchive/vlib001.pl | 4 ++++
2 files changed, 5 insertions(+)
diff --git a/textarchive/lib/md5cat.pm b/textarchive/lib/md5cat.pm
index cb8a2dc..4db7b3f 100644
--- a/textarchive/lib/md5cat.pm
+++ b/textarchive/lib/md5cat.pm
@@ -140,6 +140,7 @@ sub read_flist
print __LINE__, " could not open '$fnm'!\n";
return -1;
}
+ binmode (FI, ':utf8'); # maybe we need a flag for that?
my @files;
while (<FI>)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 8614844..c9f6f94 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -65,6 +65,10 @@ use TA::ObjReg;
use md5cat;
use Util::ts qw(ts_ISO);
+binmode( STDOUT, ':utf8' ); autoflush STDOUT 1;
+binmode( STDERR, ':utf8' ); autoflush STDERR 1;
+binmode( STDIN, ':utf8' );
+
my $project;
my $store;
my $refresh_fileinfo= 0;
--
GitLab