diff options
Diffstat (limited to 'pod/buildtoc.PL')
| -rw-r--r-- | pod/buildtoc.PL | 80 |
1 files changed, 38 insertions, 42 deletions
diff --git a/pod/buildtoc.PL b/pod/buildtoc.PL index a89c4c98eb..215dcfea2c 100644 --- a/pod/buildtoc.PL +++ b/pod/buildtoc.PL @@ -59,7 +59,38 @@ if (-d "pod") { die "$0: failed to chdir('pod'): $!\n" unless chdir("pod"); } -@pods = qw( +@ARCHPODS = qw( + perlaix + perlapollo + perlamiga + perlbeos + perlbs2000 + perlcygwin + perldgux + perldos + perlepoc + perlhpux + perlhurd + perlmachten + perlmacos + perlmint + perlmpeix + perlos2 + perlos390 + perlqnx + perlplan9 + perlsolaris + perltru64 + perlvmesa + perlvms + perlvos + perlwin32 + ); + +@pods = + ( + qw( + perl perlfaq perltoc @@ -155,48 +186,12 @@ if (-d "pod") { perl5005delta perl5004delta - perlaix - perlamiga - perlbs2000 - perlcygwin - perldgux - perldos - perlepoc - perlhpux - perlmachten - perlmacos - perlmpeix - perlos2 - perlos390 - perlsolaris - perltru64 - perlvmesa - perlvms - perlvos - perlwin32 - ); + ), + + @ARCHPODS + + ); -@ARCHPODS = qw( - perlaix - perlamiga - perlbs2000 - perlcygwin - perldgux - perldos - perlepoc - perlhpux - perlmachten - perlmacos - perlmpeix - perlos2 - perlos390 - perlsolaris - perltru64 - perlvmesa - perlvms - perlvos - perlwin32 - ); for (@ARCHPODS) { s/$/.pod/ } @ARCHPODS{@ARCHPODS} = (); @@ -284,6 +279,7 @@ sub getpods { 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")) { |