perlamiga
perlbeos
perlbs2000
+ perlce
perlcygwin
perldgux
perldos
perlepoc
+ perlfreebsd
perlhpux
perlhurd
+ perlirix
perlmachten
perlmacos
perlmint
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
perl572delta
perl571delta
perl570delta
+ perl561delta
perl56delta
perl5005delta
perl5004delta
),
- @ARCHPODS
+ @ARCHPODS,
);
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>: $!";