From 894d33d9066a0e8cb9caf8cb30494f6b4663e638 Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Thu, 11 Jun 2026 01:31:15 +0200 Subject: [PATCH] bin/csv2human --- bin/csv2human | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/bin/csv2human b/bin/csv2human index a7471db4..47d7fc1e 100755 --- a/bin/csv2human +++ b/bin/csv2human @@ -53,8 +53,16 @@ my $ENCODE = 1; binmode STDOUT, ":utf8" if $ENCODE; #binmode STDOUT, "raw:"; #binmode STDOUT; +sub _realLength() { + my $str = shift; + $str = Encode::encode_utf8($str) if $ENCODE; + # NB 11.06.26 $str = Encode::encode('UTF-8', $str) if $ENCODE; + return length($str); +} + sub realLength() { $_[0] = Encode::decode_utf8($_[0]) if $ENCODE; + # NB 11.06.26 return length(Encode::encode('UTF-8',$_[0])); return length($_[0]); } -- 2.47.3