3 use lib '../lib'; # If you haven't installed perl yet.
11 next unless /^=(?!cut)/ .. /^=cut/;
13 if (/=item (\S+)/ and $1 ne '*') {
15 #$cur = "POSIX::" . $1;
23 push @{$pod{$cur}}, $_ if $cur;
27 for $f ( keys %syn ) {
28 next unless $Type{$f};
29 $flavor = $Flavor{$f};
31 ($name = $f) =~ s/\W//g;
33 # deal with several functions sharing a description
35 $func = $next{$func} until $pod{$func};
36 my $body = join "", @{$pod{$func}};
38 # deal with unbalanced =over and =back cause by the split
39 my $has_over = $body =~ /^=over/;
40 my $has_back = $body =~ /^=back/;
41 $body =~ s/^=over\s*//m if $has_over and !$has_back;
42 $body =~ s/^=back\s*//m if $has_back and !$has_over;
43 open (POD, "> $name.pod") || die "can't open $name.pod: $!";