#
# 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.
#
die "$0: failed to chdir('pod'): $!\n" unless chdir("pod");
}
-@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
- );
+@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
+ );
+
+@pods =
+ (
+ qw(
+
+ perl
+ perlfaq
+ perltoc
+ perlbook
+
+ perlsyn
+ perldata
+ perlop
+ perlsub
+ perlfunc
+ perlreftut
+ perldsc
+ perlrequick
+ perlpod
+ perlstyle
+ perltrap
+
+ perlrun
+ perldiag
+ perllexwarn
+ perldebtut
+ perldebug
+
+ perlvar
+ perllol
+ perlopentut
+ perlretut
+
+ perlre
+ perlref
+
+ perlform
+
+ perlboot
+ perltoot
+ perltooc
+ perlobj
+ perlbot
+ perltie
+
+ perlipc
+ perlfork
+ perlnumber
+
+ perlthrtut
+ perlothrtut
+
+ perlport
+ perllocale
+ perlunicode
+ perlebcdic
+
+ perlsec
+
+ perlmod
+ perlmodlib
+ perlmodinstall
+ perlnewmod
+
+ perlfaq1
+ perlfaq2
+ perlfaq3
+ perlfaq4
+ perlfaq5
+ perlfaq6
+ perlfaq7
+ perlfaq8
+ perlfaq9
+
+ perlcompile
+
+ perlembed
+ perldebguts
+ perlxstut
+ perlxs
+ perlclib
+ perlguts
+ perlcall
+ perlutil
+ perlfilter
+ perldbmfilter
+ perlapi
+ perlintern
+ perliol
+ perlapio
+ perltodo
+ perlhack
+
+ perlhist
+ perldelta
+ perl572delta
+ perl571delta
+ perl570delta
+ perl56delta
+ perl5005delta
+ perl5004delta
+
+ ),
+
+ @ARCHPODS
+
+ );
+
+for (@ARCHPODS) { s/$/.pod/ }
+@ARCHPODS{@ARCHPODS} = ();
for (@pods) { s/$/.pod/ }
@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};
}
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/!;
die "tut $name" if $file =~ /TUT/;
unless (open (F, "< $_\0")) {
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;