Changeset 131 in openpam for trunk


Ignore:
Timestamp:
Apr 17, 2002, 11:48:53 PM (18 years ago)
Author:
Dag-Erling Smørgrav
Message:

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

Sponsored by: DARPA, NAI Labs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/misc/gendoc.pl

    r93 r131  
    3333# SUCH DAMAGE.
    3434#
    35 # $P4: //depot/projects/openpam/misc/gendoc.pl#10 $
     35# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
    3636#
    3737
     
    140140    $argnames =~ s/\" \"/|/g;
    141141    $argnames =~ s/^\"(.*)\"$/($1)/;
     142    $inliteral = $inlist = 0;
    142143    foreach (split("\n", $source)) {
    143144        s/\s*$//;
     
    186187        } elsif ($inliteral && m/^\S/) {
    187188            $man .= ".Ed\n";
    188             $inlist = 0;
     189            $inliteral = 0;
    189190        } elsif ($inliteral) {
    190191            $man .= "$_\n";
Note: See TracChangeset for help on using the changeset viewer.