Date: Wed, 17 Apr 2002 15:01:15 -0700 (PDT) From: Dag-Erling Smorgrav <des@FreeBSD.org> To: Perforce Change Reviews <perforce@freebsd.org> Subject: PERFORCE change 9938 for review Message-ID: <200204172201.g3HM1Fk91449@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
http://people.freebsd.org/~peter/p4db/chv.cgi?CH=9938 Change 9938 by des@des.at.des.thinksec.com on 2002/04/17 15:00:17 Properly terminate literal sections that appear at the end of the DESCRIPTION section. Sponsored by: DARPA, NAI Labs Affected files ... ... //depot/projects/openpam/misc/gendoc.pl#12 edit Differences ... ==== //depot/projects/openpam/misc/gendoc.pl#12 (text+ko) ==== @@ -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#11 $ +# $P4: //depot/projects/openpam/misc/gendoc.pl#12 $ # use strict; @@ -212,10 +212,17 @@ $man .= "$_\n"; } if (defined($man)) { + if ($inlist) { + $man .= ".El\n"; + } + if ($inliteral) { + $man .= ".Ed\n"; + } $man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([\.,:;-]\S*)\s*/$1 $2\n/gs; $man =~ s/\s*$/\n/gm; $man =~ s/\n+/\n/gs; $man =~ s/\0//gs; + $man =~ s/\n\n\./\n\./gs; chomp($man); } else { $man = "No description available."; @@ -367,10 +374,12 @@ "; $fn = "$func->{'name'}.3"; - sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC) - or die("$fn: open(): $!\n"); - print(FILE $mdoc); - close(FILE); + if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) { + print(FILE $mdoc); + close(FILE); + } else { + warn("$fn: open(): $!\n"); + } } sub gensummary() { To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe p4-projects" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200204172201.g3HM1Fk91449>