[EMAIL PROTECTED] 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: [EMAIL PROTECTED] Web: http://www.liquidation.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
