bin/csv2human

diff --git a/bin/csv2human b/bin/csv2human
index a7471db4ba905d2164feb3e61d4ed0671fab0594..47d7fc1e7972fe2ea0f368ac95060ba3e6daabdc 100755 (executable)
--- 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]);
 }