Changeset 131 in openpam

Timestamp:

Apr 17, 2002, 11:48:53 PM (19 years ago)

Author:

Dag-Erling Smørgrav

Message:

When closing a literal section, reset $inliteral, not $inlist.

Sponsored by: DARPA, NAI Labs

File:

• trunk/misc/gendoc.pl (modified) (3 diffs)

trunk/misc/gendoc.pl

@@ -33 +33 @@
 # SUCH DAMAGE.
 #
-# $P4: //depot/projects/openpam/misc/gendoc.pl#10 $
+# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
 #
 
@@ -140 +140 @@
     $argnames =~ s/\" \"/|/g;
     $argnames =~ s/^\"(.*)\"$/($1)/;
+    $inliteral = $inlist = 0;
     foreach (split("\n", $source)) {
         s/\s*$//;
@@ -186 +187 @@
         } elsif ($inliteral && m/^\S/) {
             $man .= ".Ed\n";
-            $inlist = 0;
+            $inliteral = 0;
         } elsif ($inliteral) {
             $man .= "$_\n";