perlamiga
perlbeos
perlbs2000
+ perlce
perlcygwin
perldgux
perldos
qw(
perl
+ perlintro
perlfaq
perltoc
perlbook
perldsc
perlrequick
perlpod
+ perlpodspec
perlstyle
perltrap
perlvar
perllol
perlopentut
+ perlpacktut
perlretut
perlre
perlboot
perltoot
- perltootc
+ perltooc
perlobj
perlbot
perltie
perlipc
perlfork
perlnumber
+
perlthrtut
+ perlothrtut
perlport
perllocale
+ perluniintro
perlunicode
perlebcdic
perlsec
perlmod
- perlmodlib
perlmodinstall
+ perlmodlib
+ perlmodstyle
perlnewmod
perlfaq1
perl572delta
perl571delta
perl570delta
+ perl561delta
perl56delta
perl5005delta
perl5004delta
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>: $!";