diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 03:55:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 03:55:10 +0000 |
| commit | 2dde2d61b30c8b775ca2cbc17a9153c34b074291 (patch) | |
| tree | 784da4de4fb789ec8512ad9bb6c04d949467f26d /pod/pod2man.PL | |
| parent | e031fa27bae468c1d1f1c2f63947de150db520aa (diff) | |
| download | perl-2dde2d61b30c8b775ca2cbc17a9153c34b074291.tar.gz | |
cleaner page headers from pod2man
p4raw-id: //depot/perl@1290
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index fc4921bced..06e46b4295 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -417,8 +417,12 @@ $name =~ s-//+-/-g; if ($name =~ s-^.*?/lib/[^/]*perl[^/]*/--i or $name =~ s-^.*?/[^/]*perl[^/]*/lib/--i or $name =~ s-^.*?/[^/]*perl[^/]*/--i) { - # Lose ^arch/version/. - $name =~ s-^[^/]+/\d+\.\d+/--; + # Lose ^site(_perl)?/. + $name =~ s-^site(_perl)?/--; + # Lose ^arch/. (XXX should we use Config? Just for archname?) + $name =~ s~^(.*-$^O|$^O-.*)/~~o; + # Lose ^version/. + $name =~ s-^\d+\.\d+/--; } # Translate Getopt/Long to Getopt::Long, etc. |