Remove mentioning main() (that doesn't exist anymore)
Change-Id: I1e3a2178827d254328fe5b15e6b70ffe0a01675c
diff --git a/script/tei2korapxml b/script/tei2korapxml
index 2e3aa0e..cbd0b1e 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -430,7 +430,7 @@
$text_id_esc = $header->id_esc;
# log output for seeing progression
- $log->notice("$0: main(): text_id=$text_id");
+ $log->notice("$0: text_id=$text_id");
$tl = 0; # reset (needed for ~ whitespace handling ~)
}
@@ -447,7 +447,6 @@
# Recursively called function to handle XML tree data
sub retr_info {
-
# recursion level
# (1 = topmost level inside retr_info() = should always be level of tag $_TEXT_BODY)
my $rl = shift;
@@ -801,7 +800,7 @@
[ 0: XML_READER_TYPE_DOCUMENT,
1: ?
- 2: [ 0: [ 0: XML_READER_TYPE_ELEMENT <- start recursion with array '$data->[2]' (see main(): retr_info( \$tree_data->[2] ))
+ 2: [ 0: [ 0: XML_READER_TYPE_ELEMENT <- start recursion with array '$data->[2]' (see retr_info( \$tree_data->[2] ))
1: 'node'
2: ?
3: HASH (attributes)
@@ -971,7 +970,7 @@
## Notes on segfault prevention
-binmode on the input handler prevents segfaulting of 'XML::LibXML::Reader' inside 'main()'
+binmode on the input handler prevents segfaulting of 'XML::LibXML::Reader' inside the main loop
(see notes on 'PerlIO layers' in 'man XML::LibXML'),
removing 'use open qw(:std :utf8)' would fix this problem too, but using binmode on input is more granular
see in perluniintro: You can switch encodings on an already opened stream by using "binmode()