3 use lib '../lib'; # If you haven't installed perl yet.
11 next unless /^=(?!cut)/ .. /^=cut/;
13 if (s/=item (\S+)/$1/) {
14 #$cur = "POSIX::" . $1;
21 push @{$pod{$cur} ||= []}, $_ if $cur;
25 for $f ( keys %syn ) {
26 $type = $Type{$f} || next;
27 $flavor = $Flavor{$f};
29 ($name = $f) =~ s/\W//g;
30 # deal with unbalanced =over and =back cause by the split
31 my $body = $pod{$orig};
32 my $has_over = $body =~ /^=over/;
33 my $has_back = $body =~ /^=back/;
34 $body =~ s/^=over\s*//m if $has_over and !$has_back;
35 $body =~ s/^=back\s*//m if $has_back and !$has_over;
36 open (POD, "> $name.pod") || die "can't open $name.pod: $!";