perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject Re: svn commit: r160089 - perl/modperl/trunk/lib/ModPerl/BuildMM.pm
Date Mon, 04 Apr 2005 20:20:12 GMT
geoff@apache.org wrote:

>Author: geoff
>Date: Mon Apr  4 12:05:35 2005
>New Revision: 160089
>
>URL: http://svn.apache.org/viewcvs?view=rev&rev=160089
>Log:
>add manpages for stuff so that both perldoc and man work
>properly
>
>Modified:
>    perl/modperl/trunk/lib/ModPerl/BuildMM.pm
>
>Modified: perl/modperl/trunk/lib/ModPerl/BuildMM.pm
>URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/BuildMM.pm?view=diff&r1=160088&r2=160089
>==============================================================================
>--- perl/modperl/trunk/lib/ModPerl/BuildMM.pm (original)
>+++ perl/modperl/trunk/lib/ModPerl/BuildMM.pm Mon Apr  4 12:05:35 2005
>@@ -245,6 +245,14 @@
>                     '$(FULLPERL) -I$(INST_LIB) ' .
>                     "-I$apache_test_dir -MModPerl::BuildMM " .
>                     "-e ModPerl::BuildMM::glue_pod $pm $podpath $blib";
>+
>+                # manify while we're at it
>+                my (undef, $man, undef) = $blib =~ m!(blib/lib/)(.*)(\.pm)!;
>+                $man =~ s!/!::!g;
>+
>+                push @target,
>+                    '$(NOECHO) $(POD2MAN) --section=3 ' .
>+                    "$podpath \$(INST_MAN3DIR)/$man.\$(MAN3EXT)"
>             }
>         }
> 
>
>
>  
>
I dont' think it matters much, but why not

+                my ($man) = $blib =~ m!(?:blib/lib/)(.*)(?:\.pm)!;



-- 
END
-----------------------------------------------------------------------------
Philip M. Gollucci
Senior Developer - Liquidity Services Inc.
Phone:  202.568.6268 (Direct)
E-Mail: pgollucci@liquidation.com
Web:    http://www.liquidation.com


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message