[groff] 01/01: grog: minor correction at &do_first_line()

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit 4b26e161561ff4df7cc42bf7be4bdd0a222e71f9
Author: Bernd Warken <address@hidden>
Date:   Wed Jun 18 19:46:28 2014 +0200

    grog: minor correction at &do_first_line()
---
 ChangeLog             |    4 ++++
 src/roff/grog/subs.pl |    4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 82d1f85..0241b17 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2014-06-18  Bernd Warken  <address@hidden>
 
+       * src/roff/grog/subs.pl: Minor correction at `do_first_line'.
+
+2014-06-18  Bernd Warken  <address@hidden>
+
        * src/roff/grog/subs.pl: Adjust for first lines with non-preproc
        and not-tmac names to be ignored.
 
diff --git a/src/roff/grog/subs.pl b/src/roff/grog/subs.pl
index 7206d14..0ed8dc8 100644
--- a/src/roff/grog/subs.pl
+++ b/src/roff/grog/subs.pl
@@ -230,7 +230,7 @@ sub args_with_minus {
 
 sub do_first_line {
   my ( $line, $file ) = @_;
-
+  our %preprocs_tmacs;
   # For a leading groff options line use only [egGjJpRst]
   if  ( $line =~ /^[.']\\"[\segGjJpRst]+&/ ) {
     # this is a groff options leading line
@@ -289,7 +289,7 @@ sub do_first_line {
     } elsif ( $word =~ /^(gn|)eqn$/ ) {
       $word = 'eqn';
     }
-    if ( exists $preproc_tmacs{$word} ) {
+    if ( exists $preprocs_tmacs{$word} ) {
       push $word, @in;
     } else {
       # not word for preproc or tmac