#
# buildtoc
#
-# Build perltoc.pod and sanity check the list of pods against all
+# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
+# This file is autogenerated by buildtoc.PL.
+# Edit that file and run it to effect changes.
+#
+# Builds perltoc.pod and sanity checks the list of pods against all
# of the MANIFEST, perl.pod, and ourselves.
#
}
@pods = qw(
- perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
- perlfaq6 perlfaq7 perlfaq8 perlfaq9 perldelta perldata
- perlsyn perlop perlre perlrun perlfunc perlvar perlsub
- perlmod perlmodlib perlmodinstall perlfork perlform perllocale
- perlref perlreftut perldsc
- perllol perlboot perltoot perltootc perlobj perltie perlbot perlipc
- perldbmfilter perldebug perlnumber perldebguts
- perldiag perlsec perltrap perlport perlstyle perlpod perlbook
- perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
- perlapi perlintern perlhist
+ perl
+ perlfaq
+ perltoc
+ perlbook
+
+ perlsyn
+ perldata
+ perlop
+ perlsub
+ perlfunc
+ perlreftut
+ perldsc
+ perlrequick
+ perlpod
+ perlstyle
+ perltrap
+
+ perlrun
+ perldiag
+ perllexwarn
+ perldebtut
+ perldebug
+
+ perlvar
+ perllol
+ perlopentut
+ perlretut
+
+ perlref
+ perlre
+ perlform
+ perllocale
+ perlunicode
+
+ perlipc
+ perlfork
+ perlnumber
+ perlthrtut
+
+ perlport
+ perlsec
+
+ perlboot
+ perltoot
+ perltootc
+ perlobj
+ perlbot
+ perltie
+
+ perlmod
+ perlmodlib
+ perlmodinstall
+ perlnewmod
+
+ perlfaq1
+ perlfaq2
+ perlfaq3
+ perlfaq4
+ perlfaq5
+ perlfaq6
+ perlfaq7
+ perlfaq8
+ perlfaq9
+
+ perlcompile
+
+ perlembed
+ perldebguts
+ perlxstut
+ perlxs
+ perlguts
+ perlcall
+ perlutil
+ perlfilter
+ perldbmfilter
+ perlapi
+ perlintern
+ perlapio
+ perltodo
+ perlhack
+
+ perlhist
+ perldelta
+ perl56delta
+ perl5005delta
+ perl5004delta
+
+ perlamiga
+ perlcygwin
+ perldos
+ perlhpux
+ perlmachten
+ perlos2
+ perlos390
+ perlposix-bc
+ perlvms
+ perlwin32
);
+@ARCHPODS = qw(
+ perlamiga
+ perlcygwin
+ perldos
+ perlhpux
+ perlmachten
+ perlos2
+ perlos390
+ perlposix-bc
+ perlvms
+ perlwin32
+ );
+for (@ARCHPODS) { s/$/.pod/ }
+@ARCHPODS{@ARCHPODS} = ();
+
for (@pods) { s/$/.pod/ }
@pods{@pods} = ();
@PODS{@PODS} = ();
open(PERLPOD, "perl.pod") || die "$0: opening perl.pod failed: $!\n";
while (<PERLPOD>) {
if (/^For ease of access, /../^\(If you're intending /) {
- if (/^\s+(perl\w+)\s+Perl /) {
+ if (/^\s+(perl\S*)\s+\w/) {
push @PERLPODS, "$1.pod";
}
}
warn "$0: $i exists but is unknown by buildtoc\n"
unless exists $pods{$i};
warn "$0: $i exists but is unknown by ../MANIFEST\n"
- unless exists $MANIPODS{$i};
+ if !exists $MANIPODS{$i} && !exists $ARCHPODS{$i};
warn "$0: $i exists but is unknown by perl.pod\n"
unless exists $PERLPODS{$i};
}