Changeset 134 in openpam

Timestamp:

Apr 18, 2002, 12:00:17 AM (19 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:

• trunk/misc/gendoc.pl (modified) (3 diffs)

trunk/misc/gendoc.pl

@@ -33 +33 @@
 # SUCH DAMAGE.
 #
-# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
+# $P4: //depot/projects/openpam/misc/gendoc.pl#12 $
 #
 
@@ -213 +213 @@
     }
     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 {
@@ -368 +375 @@
 
     $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");
+    }
 }