stas 2003/08/12 13:46:57
Modified: lib/Apache Build.pm Log: when building against the source tree parse config_vars.mk to figure out what MPM_NAME is used Revision Changes Path 1.133 +17 -0 modperl-2.0/lib/Apache/Build.pm Index: Build.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v retrieving revision 1.132 retrieving revision 1.133 diff -u -r1.132 -r1.133 --- Build.pm 12 Aug 2003 17:47:52 -0000 1.132 +++ Build.pm 12 Aug 2003 20:46:57 -0000 1.133 @@ -166,6 +166,23 @@ return $self->{mpm_name} = 'winnt' if WIN32; my $mpm_name = $self->apxs('-q' => 'MPM_NAME'); + + # building against the httpd source dir + unless ($mpm_name and exists $self->{dir}) { + my $config_vars_file = catfile $self->{dir}, + "build", "config_vars.mk"; + if (open my $fh, $config_vars_file) { + while(<$fh>) { + if(/MPM_NAME = (\w+)/) { + $mpm_name = $1; + last; + } + last if /^=item/; + } + close $fh; + } + } + die "Failed to obtain the MPM name" unless $mpm_name; return $self->{mpm_name} = $mpm_name; }