diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 20:37:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 20:37:23 +0000 |
| commit | c2e66d9e68806a7000ee1a4760c35703a0e0ae89 (patch) | |
| tree | 32508ca896b6e213afc07430f7aa223c0e9dde28 /pod/buildtoc.PL | |
| parent | 4755096ec61711c5104ba0b6b9314f32ca0351fe (diff) | |
| download | perl-c2e66d9e68806a7000ee1a4760c35703a0e0ae89.tar.gz | |
integrate cfgperl changes#6325..6373 into mainline
(NOTE: today's batch of integrations still untested)
p4raw-link: @6373 (not found)
p4raw-link: @6325 on //depot/cfgperl: d6ac44cc5a00fa38a56717785146bc16b716472c
p4raw-id: //depot/perl@6373
Diffstat (limited to 'pod/buildtoc.PL')
| -rw-r--r-- | pod/buildtoc.PL | 109 |
1 files changed, 56 insertions, 53 deletions
diff --git a/pod/buildtoc.PL b/pod/buildtoc.PL index 8e07ce856a..54853d3065 100644 --- a/pod/buildtoc.PL +++ b/pod/buildtoc.PL @@ -60,58 +60,59 @@ if (-d "pod") { } @pods = qw( - perl - perlfaq - perltoc - perlbook - - perlsyn - perldata - perlop - perlreftut - perldsc - perllol - perlrequick - perlretut - - perllexwarn - perldebug - - perlrun - perlfunc - perlopentut - perlvar - perlsub - perlmod - perlpod - - perlstyle - perlmodlib - perlmodinstall - perlnewmod - perltrap - perlport - perlsec - - perlref - perlre - perlform - perllocale - perlunicode - - perlboot - perltoot - perltootc - perlobj - perlbot - perltie - - perlipc - perlnumber - perlfork - perlthrtut - - perldiag + perl + perlfaq + perltoc + perlbook + + perlsyn + perldata + perlop + perlsub + perlfunc + perlreftut + perldsc + perlrequick + perlpod + perlstyle + perltrap + + perlrun + perldiag + perllexwarn + perldebug + + perlvar + perllol + perlopentut + perlretut + + perlref + perlre + perlform + perllocale + perlunicode + + perlipc + perlfork + perlnumber + perlthrtut + + perlport + perlsec + + perlboot + perltoot + perltootc + perlobj + perlbot + perltie + + perlmod + perlmodlib + perlmodinstall + perlnewmod + perlfaq1 perlfaq2 perlfaq3 @@ -152,6 +153,7 @@ if (-d "pod") { perlmachten perlos2 perlos390 + perlposix-bc perlvms perlwin32 ); @@ -164,6 +166,7 @@ if (-d "pod") { perlmachten perlos2 perlos390 + perlposix-bc perlvms perlwin32 ); @@ -186,7 +189,7 @@ close(MANI); open(PERLPOD, "perl.pod") || die "$0: opening perl.pod failed: $!\n"; while (<PERLPOD>) { if (/^For ease of access, /../^\(If you're intending /) { - if (/^\s+(perl\w*)\s+\w/) { + if (/^\s+(perl\S*)\s+\w/) { push @PERLPODS, "$1.pod"; } } |