Replace recursion and non-essential regexes with index/substr
(as a very minor performance improvement) and fix a bug
where a single-line regex would ignore the newline symbol.
Change-Id: I573b50b85b7dd2732c2cad3f50e22b0e9e33e2ea
diff --git a/t/tei.t b/t/tei.t
index fcfd32e..5022478 100644
--- a/t/tei.t
+++ b/t/tei.t
@@ -38,7 +38,7 @@
seek($fh, 0, 0);
-is(KorAP::XML::TEI::delHTMLcom($fh, 'Dies <!--'), "Dies ist ein Test");
+is(KorAP::XML::TEI::delHTMLcom($fh, 'Dies <!--'), "Dies ist ein Test\n");
close($fh);