diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 08:47:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 08:47:52 +0000 |
| commit | c88ded472108aed93bd950f5d5a2f4013112b680 (patch) | |
| tree | a03de5c711e60828c82b0e7cc4890ef69e25da3c /lib/Pod | |
| parent | c92c315595219e206b370a528cce0c3bd3b17410 (diff) | |
| download | perl-c88ded472108aed93bd950f5d5a2f4013112b680.tar.gz | |
Pod::Man should strip leading lib/ for module manpages (from
Russ Allbery)
p4raw-id: //depot/perl@5825
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Man.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 11601e5072..97a382823e 100644 --- a/lib/Pod/Man.pm +++ b/lib/Pod/Man.pm @@ -1,5 +1,5 @@ # Pod::Man -- Convert POD data to formatted *roff input. -# $Id: Man.pm,v 1.1 2000/03/16 22:00:36 eagle Exp $ +# $Id: Man.pm,v 1.2 2000/03/19 07:30:13 eagle Exp $ # # Copyright 1999, 2000 by Russ Allbery <rra@stanford.edu> # @@ -38,7 +38,7 @@ use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION); # Perl core and too many things could munge CVS magic revision strings. # This number should ideally be the same as the CVS revision in podlators, # however. -$VERSION = 1.01; +$VERSION = 1.02; ############################################################################ @@ -396,7 +396,8 @@ sub begin_pod { # */lib/*perl* standard or site_perl module # */*perl*/lib from -D prefix=/opt/perl # */*perl*/ random module hierarchy - # which works. Should be fixed to use File::Spec. + # which works. Should be fixed to use File::Spec. Also handle + # a leading lib/ since that's what ExtUtils::MakeMaker creates. for ($name) { s%//+%/%g; if ( s%^.*?/lib/[^/]*perl[^/]*/%%si @@ -405,6 +406,7 @@ sub begin_pod { s%^(.*-$^O|$^O-.*)/%%so; # arch s%^\d+\.\d+%%s; # version } + s%^lib/%%; s%/%::%g; } } |