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
- perlref
perlre
+ perlref
+
perlform
- perllocale
- perlunicode
+
+ perlboot
+ perltoot
+ perltooc
+ perlobj
+ perlbot
+ perltie
perlipc
perlfork
perlnumber
+
perlthrtut
+ perlothrtut
perlport
- perlsec
+ perllocale
+ perluniintro
+ perlunicode
+ perlebcdic
- perlboot
- perltoot
- perltootc
- perlobj
- perlbot
- perltie
+ perlsec
perlmod
- perlmodlib
perlmodinstall
+ perlmodlib
+ perlmodstyle
perlnewmod
perlfaq1
perldebguts
perlxstut
perlxs
+ perlclib
perlguts
perlcall
perlutil
perldbmfilter
perlapi
perlintern
+ perliol
perlapio
perltodo
perlhack
perlhist
perldelta
+ perl572delta
+ perl571delta
+ perl570delta
+ perl561delta
perl56delta
perl5005delta
perl5004delta
- perlamiga
- perlcygwin
- perldos
- perlhpux
- perlmachten
- perlos2
- perlos390
- perlposix-bc
- perlvms
- perlwin32
- );
+ ),
+
+ @ARCHPODS,
+
+ );
-@ARCHPODS = qw(
- perlamiga
- perlcygwin
- perldos
- perlhpux
- perlmachten
- perlos2
- perlos390
- perlposix-bc
- perlvms
- 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>: $!";
Here should be listed all the extra programs' documentation, but they
don't all have manual pages yet:
- =over
+ =over 4
=item a2p
}
if (s/^=head1 (.*)/=item $1/) {
unhead2();
- output "=over\n\n" unless $inhead1;
+ output "=over 4\n\n" unless $inhead1;
$inhead1 = 1;
output $_; nl(); next;
}
if (s/^=head2 (.*)/=item $1/) {
unitem();
- output "=over\n\n" unless $inhead2;
+ output "=over 4\n\n" unless $inhead2;
$inhead2 = 1;
output $_; nl(); next;
}
s/\s+$//;
next if /^[\d.]+$/;
next if $pod eq 'perlmodlib' && /^ftp:/;
- ##print "=over\n\n" unless $initem;
+ ##print "=over 4\n\n" unless $initem;
output ", " if $initem;
$initem = 1;
s/\.$//;
!NO!SUBS!
+close OUT or die "Can't close $file: $!";
+chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
+exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
+chdir $origdir;