[groff] 01/01: fix comments in grog/subs.pl

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit 3b0b4f551e2c1d9168d52fc56dbbd7fc52c773af
Author: Bernd Warken <address@hidden>
Date:   Thu Sep 10 11:11:29 2015 +0200

    fix comments in grog/subs.pl
---
 ChangeLog             |    8 ++++++--
 src/roff/grog/subs.pl |   10 ++++++----
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1066191..48c2371 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-09-10  Bernd Warken  <address@hidden>
+
+       * src/roff/grog/subs.pl: fix comments
+
 2015-09-03  Bernd Warken  <address@hidden>
 
        * tmac/troffrc: Add .mso for file `pdfpic.tmac'.
@@ -6,11 +10,11 @@
 
        * Makefile.am:
        - Use only the naming `.section.man' for all man.pages.
-       - Replace `.man.n' by `.man' only, such that no `.n'  is
+       - Replace `.man.n' by `.man' only, such that no `.n' is
        generated.
        - For example, the source `groff.7.man' is transformed into
        `groff.7' in the same directory and then is by installing just
-       copied  into one of the suitable installed man directory.
+       copied into one of the suitable installed man directory.
 
 2015-08-27  Bernd Warken  <address@hidden>
 
diff --git a/src/roff/grog/subs.pl b/src/roff/grog/subs.pl
index c2a5aee..7290d78 100644
--- a/src/roff/grog/subs.pl
+++ b/src/roff/grog/subs.pl
@@ -12,7 +12,7 @@
 # The macros for identifying the devices were taken from Ralph
 # Corderoy's `grog.sh' of 2006.
 
-# Last update: 29 Jul 2015
+# Last update: 10 Sep 2015
 
 # This file is part of `grog', which is part of `groff'.
 
@@ -1129,6 +1129,7 @@ sub make_groff_line_rest {
     $file_args_included = 0;
   }
 
+###### make_groff_line_rest()
   foreach (@Command) {
     next unless /\s/;
     # when one argument has several words, use accents
@@ -1136,6 +1137,7 @@ sub make_groff_line_rest {
   }
 
 
+###### make_groff_line_rest()
   ##########
   # -m arguments
   my $nr_m_guessed = scalar @m;
@@ -1144,7 +1146,6 @@ sub make_groff_line_rest {
       'argument for -m found: ' . @m;
   }
 
-###### make_groff_line()
 
   my $nr_m_args = scalar @Mparams;     # m-arguments for grog
   my $last_m_arg = ''; # last provided -m option
@@ -1160,6 +1161,7 @@ sub make_groff_line_rest {
     $last_m_arg = $Mparams[0];
   }
 
+###### make_groff_line_rest()
   my $final_m = '';
   if ( $last_m_arg ) {
     my $is_equal = 0;
@@ -1180,7 +1182,7 @@ sub make_groff_line_rest {
        'The argument is taken.';
       $final_m = $last_m_arg;
     }
-###### make_groff_line()
+###### make_groff_line_rest()
   } else {     # no -m arg provided
     if ( $nr_m_guessed > 1 ) {
       print STDERR __FILE__ . ' ' .  __LINE__ . ': ' .
@@ -1208,7 +1210,7 @@ sub make_groff_line_rest {
   }
 
   exit 0;
-} # make_groff_line()
+} # make_groff_line_rest()
 
 
 ########################################################################