Rename delHTMLcom to be in line with other naming conventions and make the function exportable
Change-Id: I46d30891b17a5f2bddf7ddc0c492413cc2af6007
diff --git a/xt/benchmark.pl b/xt/benchmark.pl
index b27acd6..c1657a6 100644
--- a/xt/benchmark.pl
+++ b/xt/benchmark.pl
@@ -12,7 +12,7 @@
unshift @INC, "$FindBin::Bin/../lib";
};
-use KorAP::XML::TEI;
+use KorAP::XML::TEI 'remove_xml_comments';
use KorAP::XML::TEI::Tokenizer::Aggressive;
use KorAP::XML::TEI::Tokenizer::Conservative;
@@ -84,7 +84,7 @@
name => 'delHTMLcom',
code => sub {
for (1..100_000) {
- $result = KorAP::XML::TEI::delHTMLcom(
+ $result = remove_xml_comments(
\*STDIN,
"This <!-- comment --> is a test " . $_
);
@@ -95,7 +95,7 @@
name => 'delHTMLcom-long',
code => sub {
for (1..10_000) {
- $result = KorAP::XML::TEI::delHTMLcom(
+ $result = remove_xml_comments(
$fh,
"This <!--" . $_
);