diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-28 14:00:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-28 14:00:12 +0000 |
| commit | 34babc168865edbd6963528152c3c3b68680b55f (patch) | |
| tree | 7c115a5843147fddd36cf90e7d95fdaf58f00f70 /pod/buildtoc.PL | |
| parent | d9ae6319b04989bd3d538f5691a909e211d38fbb (diff) | |
| download | perl-34babc168865edbd6963528152c3c3b68680b55f.tar.gz | |
Add perlpacktut from Wolfgang Laun; regen toc.
p4raw-id: //depot/perl@13341
Diffstat (limited to 'pod/buildtoc.PL')
| -rw-r--r-- | pod/buildtoc.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/buildtoc.PL b/pod/buildtoc.PL index 4a718349e0..0655887c3f 100644 --- a/pod/buildtoc.PL +++ b/pod/buildtoc.PL @@ -122,6 +122,7 @@ if (-d "pod") { perlvar perllol perlopentut + perlpacktut perlretut perlre @@ -291,8 +292,7 @@ sub getpods { 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!lib/Devel/Harness.pm|Devel/PPPort/harness/!; - + 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>: $!"; |