release version 4.36

[bible-kjv.git] / makeconc.pl

diff --git a/makeconc.pl b/makeconc.pl
index cf3edebca39107112170f10f710d39902c504b07..6ccc32d4392b0e35253e2ce3ee934722b3828b6a 100755 (executable)
--- a/makeconc.pl
+++ b/makeconc.pl
@@ -52,7 +52,8 @@ while (<BIBLE>) {
        next if $stopword{$word};
        $count{$word}++;        # Move below next line to count per-line.
        next if $seenonthisline{$word}++;
-       $lines{$word} .= " " . $.;
+       #the header line discard still leaves $. 1 higher than we want
+       $lines{$word} .= " " . ($. - 1);
     }
 }
 die $! if BIBLE->error();