Lines Matching refs:man
110 my $man;
194 if (!defined($man)) {
196 $man = "";
211 if ($man =~ m/\n\.Sh [^\n]+\n$/s) {
215 if ($man ne "" && $man !~ m/\.Pp\n$/s) {
217 $man .= "\0\n";
219 $man .= ".Pp\n";
234 $man =~ s/\n\.Pp$/\n/s;
235 $man .= "$_\n";
241 $man .= ".Ed\n";
245 $man .= ".El\n.Pp\n";
249 $man =~ s/\.Pp\n$//s;
250 $man .= ".Bl -bullet\n";
253 $man .= ".It\n";
258 $man .= ".Ed\n";
262 $man .= ".El\n.Pp\n";
266 $man =~ s/\.Pp\n$//s;
267 $man .= ".Bl -tag -width 18n\n";
271 $man .= "$_\n";
275 $man .= ".El\n.Pp\n";
279 $man .= ".Ed\n";
283 $man .= "$_\n";
290 $man .= ".Bd -literal\n";
292 $man .= "$_\n";
309 $man .= "$_\n";
311 if (defined($man)) {
313 $man .= ".El\n";
317 $man .= ".Ed\n";
320 $man =~ s/\%/\\&\%/gs;
321 $man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([.,:;-])\s+/$1 $2\n/gs;
322 $man =~ s/\s*$/\n/gm;
323 $man =~ s/\n+/\n/gs;
324 $man =~ s/\0//gs;
325 $man =~ s/\n\n\./\n\./gs;
326 chomp($man);
328 $man = "No description available.";
338 'man' => $man,