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:
parent
c51f824179
commit
1e53b5bf95
|
@ -32,7 +32,7 @@
|
||||||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||||
# SUCH DAMAGE.
|
# SUCH DAMAGE.
|
||||||
#
|
#
|
||||||
# $P4: //depot/projects/openpam/misc/gendoc.pl#10 $
|
# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
|
||||||
#
|
#
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
@ -139,6 +139,7 @@ sub parse_source($) {
|
||||||
$argnames =~ s/([\|\[\]\(\)\.\*\+\?])/\\$1/g;
|
$argnames =~ s/([\|\[\]\(\)\.\*\+\?])/\\$1/g;
|
||||||
$argnames =~ s/\" \"/|/g;
|
$argnames =~ s/\" \"/|/g;
|
||||||
$argnames =~ s/^\"(.*)\"$/($1)/;
|
$argnames =~ s/^\"(.*)\"$/($1)/;
|
||||||
|
$inliteral = $inlist = 0;
|
||||||
foreach (split("\n", $source)) {
|
foreach (split("\n", $source)) {
|
||||||
s/\s*$//;
|
s/\s*$//;
|
||||||
if (!defined($man)) {
|
if (!defined($man)) {
|
||||||
|
@ -185,7 +186,7 @@ sub parse_source($) {
|
||||||
$inlist = 0;
|
$inlist = 0;
|
||||||
} elsif ($inliteral && m/^\S/) {
|
} elsif ($inliteral && m/^\S/) {
|
||||||
$man .= ".Ed\n";
|
$man .= ".Ed\n";
|
||||||
$inlist = 0;
|
$inliteral = 0;
|
||||||
} elsif ($inliteral) {
|
} elsif ($inliteral) {
|
||||||
$man .= "$_\n";
|
$man .= "$_\n";
|
||||||
next;
|
next;
|
||||||
|
|
Loading…
Reference in New Issue