Changeset 134 in openpam for trunk


Ignore:
Timestamp:
Apr 18, 2002, 12:00:17 AM (18 years ago)
Author:
Dag-Erling Smørgrav
Message:

Properly terminate literal sections that appear at the end of the
DESCRIPTION section.

Sponsored by: DARPA, NAI Labs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/misc/gendoc.pl

    r131 r134  
    3333# SUCH DAMAGE.
    3434#
    35 # $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
     35# $P4: //depot/projects/openpam/misc/gendoc.pl#12 $
    3636#
    3737
     
    213213    }
    214214    if (defined($man)) {
     215        if ($inlist) {
     216            $man .= ".El\n";
     217        }
     218        if ($inliteral) {
     219            $man .= ".Ed\n";
     220        }
    215221        $man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([\.,:;-]\S*)\s*/$1 $2\n/gs;
    216222        $man =~ s/\s*$/\n/gm;
    217223        $man =~ s/\n+/\n/gs;
    218224        $man =~ s/\0//gs;
     225        $man =~ s/\n\n\./\n\./gs;
    219226        chomp($man);
    220227    } else {
     
    368375
    369376    $fn = "$func->{'name'}.3";
    370     sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
    371         or die("$fn: open(): $!\n");
    372     print(FILE $mdoc);
    373     close(FILE);
     377    if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
     378        print(FILE $mdoc);
     379        close(FILE);
     380    } else {
     381        warn("$fn: open(): $!\n");
     382    }
    374383}
    375384
Note: See TracChangeset for help on using the changeset viewer.