Put a watchdog on openpid.t: it has been found to hang in some Win32 smokes.
[perl.git] / pod / splitman
1 #!/usr/bin/perl
2
3 while (<>) {
4     if ($seqno = 1 .. /^\.TH/) {
5         unless ($seqno =~ /e/i) {
6             $header .= $_;
7         } 
8         next;
9     } 
10
11     if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
12         $desking = 0;
13         $desc = $1;
14         if (name($desc) ne $myname) {
15             $myname = name($desc);
16             print $myname, "\n";
17             open(MAN, "> $myname.3pl");
18             print MAN <<EOALL;
19 $header
20 .TH $myname 3PL "\\*(RP"
21 .SH NAME 
22 $myname
23 .SH SYNOPSIS 
24 .B $desc
25 EOALL
26         } else {
27             print MAN <<EOMORE;
28 .br
29 .ti +3n
30 or
31 .br
32 .B $desc
33 EOMORE
34         } 
35         next;
36     } 
37     unless ($desking) {
38         print MAN ".SH DESCRIPTION\n";
39         $desking = 1;
40     } 
41     print MAN;
42
43
44 sub name {
45     ($_[0] =~ /(\w+)/)[0];
46