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
+ );
+
+@pods =
+ (
+ qw(
+
perl
perlfaq
perltoc
perlboot
perltoot
- perltootc
+ perltooc
perlobj
perlbot
perltie
perlipc
perlfork
perlnumber
+
perlthrtut
+ perlothrtut
perlport
perllocale
perlhist
perldelta
+ perl572delta
+ perl571delta
+ perl570delta
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} = ();
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")) {