perlirix
perlmachten
perlmacos
+ perlmacosx
perlmint
perlmpeix
perlnetware
perlos2
perlos390
+ perlos400
perlqnx
perlplan9
perlsolaris
perlapio
perltodo
perlhack
+ perldoc
perlhist
perldelta
+ perl58delta
+ perl573delta
perl572delta
perl571delta
perl570delta
perl5005delta
perl5004delta
+ perlartistic
+ perlgpl
+
),
@ARCHPODS,
sub getpods {
if (/\.p(od|m)$/) {
my $file = $File::Find::name;
- return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
+ return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
+ return if $file =~ m!(?:^|/)t/!;
return if $file =~ m!lib/Attribute/Handlers/demo/!;
- return if $file =~ m!lib/Net/FTP/.+\.pm!; # Hi, Graham! :-)
+ 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/;
+ return if $file =~ m!/Devel/PPPort/[Hh]arness|lib/Devel/Harness!i;
+ return if $file =~ m!XS/(?:APItest|Typemap)!;
+ die "tut $name" if $file =~ /TUT/;
unless (open (F, "< $_\0")) {
warn "bogus <$file>: $!";
system "ls", "-l", $file;