Cleanup: Localize $from and $pos
Change-Id: Icc5b58a1ce0edbd5de156b3230de19789123fc11
diff --git a/script/tei2korapxml b/script/tei2korapxml
index b0318f8..fb58d8e 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -157,16 +157,12 @@
# element from $tree_data
my $e;
-# Keeping track of the current positions in the text
-my $pos;
-
# Default encoding of the text
my $input_enc = 'UTF-8';
# variables for handling ~ whitespace related issue ~
# (it is sometimes necessary, to correct the from-values for some tags)
my $add_one;
-my $from = 0;
# text line (needed for whitespace handling)
my $text_line = 0;
@@ -231,7 +227,7 @@
$_ = replace_entities($_);
# End of text body
- if (($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
@@ -494,7 +490,7 @@
# Handle structures and tokens
- $from = $anno->from;
+ my $from = $anno->from;
# ~ whitespace related issue ~
if ($from > 0 && not exists $ws{$from - 1}) {