perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
perlfaq6 perlfaq7 perlfaq8 perlfaq9 perldelta perldata
perlsyn perlop perlre perlrun perlfunc perlvar perlsub
- perlmod perlform perllocale perlref perldsc perllol perltoot
- perlobj perltie perlbot perlipc perldebug perldiag perlsec
- perltrap perlstyle perlpod perlbook perlembed perlapio perlxs
- perlxstut perlguts perlcall
+ perlmod perlmodlib perlmodinstall perlform perllocale
+ perlref perlreftut perldsc
+ perllol perltoot perltootc perlobj perltie perlbot perlipc
+ perldbmfilter perldebug
+ perldiag perlsec perltrap perlport perlstyle perlpod perlbook
+ perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
+ perlhist
);
for (@pods) { s/$/.pod/ }
output $_; nl(); next;
}
- if (s/^=item (.*)\n/$1/) {
+ if (s/^=item ([^=].*)\n/$1/) {
next if $pod eq 'perldiag';
s/^\s*\*\s*$// && next;
s/^\s*\*\s*//;
s/\s+$//;
next if /^[\d.]+$/;
- next if $pod eq 'perlmod' && /^ftp:/;
+ next if $pod eq 'perlmodlib' && /^ftp:/;
##print "=over\n\n" unless $initem;
output ", " if $initem;
$initem = 1;