You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ra...@apache.org on 2003/12/01 05:00:35 UTC
cvs commit: modperl-2.0/lib/ModPerl BuildMM.pm
randyk 2003/11/30 20:00:35
Modified: lib/ModPerl BuildMM.pm
Log:
Reviewed by: stas
Fix buglet where on Win32 (and potentially some other non-Unixes) not
all files were being installed under a relative Apache2 subdirectory
when MP_INST_APACHE2 was specified.
Revision Changes Path
1.13 +9 -9 modperl-2.0/lib/ModPerl/BuildMM.pm
Index: BuildMM.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/BuildMM.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- BuildMM.pm 11 Sep 2003 01:31:22 -0000 1.12
+++ BuildMM.pm 1 Dec 2003 04:00:35 -0000 1.13
@@ -5,7 +5,7 @@
use ExtUtils::MakeMaker ();
use Cwd ();
-use File::Spec;
+use File::Spec::Functions qw(catdir catfile splitdir);
use File::Basename;
use Apache::Build ();
@@ -20,7 +20,7 @@
ModPerl::MM::override_eu_mm_mv_all_methods(@methods);
use strict 'refs';
-my $apache_test_dir = File::Spec->catdir(Cwd::getcwd(), "Apache-Test", "lib");
+my $apache_test_dir = catdir Cwd::getcwd(), "Apache-Test", "lib";
#to override MakeMaker MOD_INSTALL macro
sub mod_install {
@@ -102,8 +102,8 @@
#install everything relative to the Apache2/ subdir
if ($build->{MP_INST_APACHE2}) {
- $self->{INST_ARCHLIB} .= '/Apache2';
- $self->{INST_LIB} .= '/Apache2';
+ $self->{INST_ARCHLIB} = catdir $self->{INST_ARCHLIB}, 'Apache2';
+ $self->{INST_LIB} = catdir $self->{INST_LIB}, 'Apache2';
}
#"discover" xs modules. since there is no list hardwired
@@ -144,7 +144,7 @@
sub ModPerl::BuildMM::MY::postamble {
my $self = shift;
- my $doc_root = File::Spec->catdir(Cwd::getcwd(), "docs", "api");
+ my $doc_root = catdir Cwd::getcwd(), "docs", "api";
my @targets = ();
@@ -153,10 +153,10 @@
if (-d $doc_root) {
while (my ($pm, $blib) = each %{$self->{PM}}) {
- my $pod = File::Spec->catdir(
- (File::Spec->splitdir($blib))[-2 .. -1]);
+ my $pod = catdir(
+ (splitdir($blib))[-2 .. -1]);
$pod =~ s/\.pm/\.pod/;
- my $podpath = File::Spec->catfile($doc_root, $pod);
+ my $podpath = catfile $doc_root, $pod;
next unless -r $podpath;
push @target,
@@ -235,7 +235,7 @@
#unless already specified with \$(INST_LIB)
#or already in Apache2/
unless ($v =~ /Apache2/) {
- $v =~ s|(blib/lib)|$1/Apache2|;
+ $v =~ s{ (blib[/\\:]lib) }{ catdir $1, 'Apache2'}xe;
}
$pm->{$k} = $v;