Changeset 131 in openpam
- Timestamp:
- Apr 17, 2002, 11:48:53 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/gendoc.pl
r93 r131 33 33 # SUCH DAMAGE. 34 34 # 35 # $P4: //depot/projects/openpam/misc/gendoc.pl#1 0$35 # $P4: //depot/projects/openpam/misc/gendoc.pl#11 $ 36 36 # 37 37 … … 140 140 $argnames =~ s/\" \"/|/g; 141 141 $argnames =~ s/^\"(.*)\"$/($1)/; 142 $inliteral = $inlist = 0; 142 143 foreach (split("\n", $source)) { 143 144 s/\s*$//; … … 186 187 } elsif ($inliteral && m/^\S/) { 187 188 $man .= ".Ed\n"; 188 $inli st= 0;189 $inliteral = 0; 189 190 } elsif ($inliteral) { 190 191 $man .= "$_\n";
Note: See TracChangeset
for help on using the changeset viewer.