[groff] 01/01: grog: repair call of Perl push()

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit 68d227915d6c4966a033e4fe38dba912efc7f3e7
Author: Bernd Warken <address@hidden>
Date:   Fri Jun 20 20:58:41 2014 +0200

    grog: repair call of Perl push()
---
 ChangeLog             |    3 +++
 src/roff/grog/subs.pl |    2 +-
 2 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bdf3dd6..ee22bc1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -21,6 +21,9 @@
        * src/roff/grog/subs.pl: In the `groff' output command line, split
        the single character options collections into different
        1-character options, each with a leading minus `-'..
+2014-06-20  Bernd Warken  <address@hidden>
+
+       * src/roff/grog/subs.pl: Repair call of `push'.
 
 2014-06-18  Bernd Warken  <address@hidden>
 
diff --git a/src/roff/grog/subs.pl b/src/roff/grog/subs.pl
index 2150d20..1465bcf 100644
--- a/src/roff/grog/subs.pl
+++ b/src/roff/grog/subs.pl
@@ -291,7 +291,7 @@ sub do_first_line {
       $word = 'eqn';
     }
     if ( exists $preprocs_tmacs{$word} ) {
-      push $word, @in;
+      push @in, $word;
     } else {
       # not word for preproc or tmac
       return 0;