Enable perl locale support to ensure that I/O is treated with the
encoding indicated by the locale, be it UTF-8 or something else.

Link: https://perldoc.perl.org/perllocale#Unicode-and-UTF-8
Patch-by: Dr. Thomas Orgis <thomas.or...@uni-hamburg.de>
Signed-off-by: Nicolas Schier <nico...@fjasle.eu>
---
 ts | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ts b/ts
index af23cf7..71b0fbc 100755
--- a/ts
+++ b/ts
@@ -53,6 +53,7 @@ use warnings;
 use strict;
 use POSIX q{strftime};
 no warnings 'utf8';
+use open q{:locale};
 
 $|=1;
 
-- 
2.42.0

Reply via email to