die "$0: failed to chdir('pod'): $!\n" unless chdir("pod");
}
-@pods = qw(
+@ARCHPODS = qw(
+ perlaix
+ perlapollo
+ perlamiga
+ perlbeos
+ perlbs2000
+ perlce
+ perlcygwin
+ perldgux
+ perldos
+ perlepoc
+ perlhpux
+ perlhurd
+ perlmachten
+ perlmacos
+ perlmint
+ perlmpeix
+ perlnetware
+ perlos2
+ perlos390
+ perlqnx
+ perlplan9
+ perlsolaris
+ perltru64
+ perluts
+ perlvmesa
+ perlvms
+ perlvos
+ perlwin32
+ );
+
+@CJKPODS = qw(
+ perlcn
+ perljp
+ perlko
+ perltw
+ );
+
+@pods =
+ (
+ qw(
+
perl
+ perlintro
perlfaq
perltoc
perlbook
perldsc
perlrequick
perlpod
+ perlpodspec
perlstyle
perltrap
perlvar
perllol
perlopentut
+ perlpacktut
perlretut
perlre
perlboot
perltoot
- perltootc
+ perltooc
perlobj
perlbot
perltie
perlipc
perlfork
perlnumber
+
perlthrtut
+ perlothrtut
perlport
perllocale
+ perluniintro
perlunicode
perlebcdic
perlsec
perlmod
- perlmodlib
perlmodinstall
+ perlmodlib
+ perlmodstyle
perlnewmod
perlfaq1
perlhist
perldelta
+ perl572delta
perl571delta
perl570delta
+ perl561delta
perl56delta
perl5005delta
perl5004delta
- perlaix
- perlamiga
- perlbs2000
- perlcygwin
- perldos
- perlepoc
- perlhpux
- perlmachten
- perlmacos
- perlmpeix
- perlos2
- perlos390
- perlsolaris
- perlvmesa
- perlvms
- perlvos
- perlwin32
- );
+ ),
+
+ @ARCHPODS,
+
+ );
-@ARCHPODS = qw(
- perlaix
- perlamiga
- perlbs2000
- perlcygwin
- perldos
- perlepoc
- perlhpux
- perlmachten
- perlmacos
- perlmpeix
- perlos2
- perlos390
- perlsolaris
- perlvmesa
- perlvms
- perlvos
- perlwin32
- );
for (@ARCHPODS) { s/$/.pod/ }
@ARCHPODS{@ARCHPODS} = ();
+for (@CJKPODS) { s/$/.pod/ }
+@CJKPODS{@CJKPODS} = ();
+
for (@pods) { s/$/.pod/ }
@pods{@pods} = ();
@PODS{@PODS} = ();
unless @PERLPODS;
@PERLPODS{@PERLPODS} = ();
+# Delete the CJK because we cannot mix their encodings.
+delete @PERLPODS{@CJKPODS};
+delete @PODS{@CJKPODS};
+delete @pods{@CJKPODS};
+
# Cross-check against ourselves
# Cross-check against the MANIFEST
# Cross-check against the perl.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"
- if !exists $MANIPODS{$i} && !exists $ARCHPODS{$i};
+ if !exists $MANIPODS{$i} && !exists $ARCHPODS{$i} && !exists $CJKPODS{$i};
warn "$0: $i exists but is unknown by perl.pod\n"
unless exists $PERLPODS{$i};
}
sub getpods {
if (/\.p(od|m)$/) {
- # Skip .pm files that have corresponding .pod files, and Functions.pm.
- return if /(.*)\.pm$/ && -f "$1.pod";
my $file = $File::Find::name;
return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
-
+ return if $file =~ m!lib/Attribute/Handlers/demo/!;
+ return if $file =~ m!lib/Net/FTP/.+\.pm!; # Hi, Graham! :-)
+ return if $file =~ m!lib/Math/BigInt/t/!;
+ return if $file =~ m!/Devel/PPPort/[Hh]arness|lib/Devel/Harness!i;
die "tut $name" if $file =~ /TUT/;
unless (open (F, "< $_\0")) {
warn "bogus <$file>: $!";