From 1e53b5bf953ff228a66f40d05949e5eb60c88361 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@des.no>
Date: Wed, 17 Apr 2002 23:48:53 +0000
Subject: [PATCH] When closing a literal section, reset $inliteral, not
 $inlist.

Sponsored by:	DARPA, NAI Labs


git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@131 185d5e19-27fe-0310-9dcf-9bff6b9f3609
---
 misc/gendoc.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/misc/gendoc.pl b/misc/gendoc.pl
index 60c710c..ada5d12 100644
--- a/misc/gendoc.pl
+++ b/misc/gendoc.pl
@@ -32,7 +32,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $P4: //depot/projects/openpam/misc/gendoc.pl#10 $
+# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
 #
 
 use strict;
@@ -139,6 +139,7 @@ sub parse_source($) {
     $argnames =~ s/([\|\[\]\(\)\.\*\+\?])/\\$1/g;
     $argnames =~ s/\" \"/|/g;
     $argnames =~ s/^\"(.*)\"$/($1)/;
+    $inliteral = $inlist = 0;
     foreach (split("\n", $source)) {
 	s/\s*$//;
 	if (!defined($man)) {
@@ -185,7 +186,7 @@ sub parse_source($) {
 	    $inlist = 0;
 	} elsif ($inliteral && m/^\S/) {
 	    $man .= ".Ed\n";
-	    $inlist = 0;
+	    $inliteral = 0;
 	} elsif ($inliteral) {
 	    $man .= "$_\n";
 	    next;