OpenPAM/OpenPAM
OpenPAM
/
OpenPAM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Dag-Erling Smørgrav 2002-04-17 23:48:53 +00:00
parent c51f824179
commit 1e53b5bf95
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
misc/gendoc.pl
View File

@ -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;