Allow closing elements to start with "text"
Change-Id: Ifa06a3e7ddf8f32ae80763501e30d4a9c7f05365
diff --git a/script/tei2korapxml b/script/tei2korapxml
index e043e9b..4e4c46e 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -24,7 +24,7 @@
use KorAP::XML::TEI::Header;
use KorAP::XML::TEI::Inline;
-our $VERSION = '2.4.1';
+our $VERSION = '2.4.3';
our $VERSION_MSG = "\ntei2korapxml - v$VERSION\n";
@@ -256,7 +256,7 @@
$_ = replace_entities($_);
# End of text body
- if ((my $pos = index($_, '</' . $_TEXT_BODY)) >= 0) {
+ if ((my $pos = index($_, "</$_TEXT_BODY>")) >= 0) {
# write data.xml, structure.xml and evtl. morpho.xml and/or tokenization files