Fix handling of utf-characters in sigles
... by avoiding multiple utf-8-encodes
Change-Id: Ifd600c4dcfe2e3374b8416a3e033d6bd5a79931e
diff --git a/script/tei2korapxml b/script/tei2korapxml
index 8ace82a..07744e1 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -65,6 +65,7 @@
}
);
+binmode(STDERR, ":encoding(UTF-8)");
Log::Any::Adapter->set('Stderr', log_level => $log_level);
$log->notice('Debugging is activated') if DEBUG;
@@ -448,7 +449,7 @@
$text_id_esc = $header->id_esc;
# log output for seeing progression
- $log->notice("$0: main(): text_id=".decode('UTF-8', $text_id));
+ $log->notice("$0: main(): text_id=$text_id");
$tl = 0; # reset (needed for ~ whitespace handling ~)
}