perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r356176 - /perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl
Date Mon, 12 Dec 2005 06:27:54 GMT
Author: pgollucci
Date: Sun Dec 11 22:27:53 2005
New Revision: 356176

URL: http://svn.apache.org/viewcvs?rev=356176&view=rev
Log:
continue variablization

Modified:
    perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl

Modified: perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl?rev=356176&r1=356175&r2=356176&view=diff
==============================================================================
--- perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl (original)
+++ perl/Apache-Test/trunk/Apache-TestItSelf/sample/testitself_conf_mp2_modules.pl Sun Dec
11 22:27:53 2005
@@ -1,26 +1,42 @@
 # This is a config file for testing modperl 2.0 Apache:: 3rd party modules
 
+use strict;
+use warnings FATAL => 'all';
+
+my $base = "/home/$ENV{USER}";
+
+my $perl_base    = "$base/perl";
+my $perl_ver     = "5.8.7-ithread";
+my $PERL         = "$perl_base/$perl_ver/bin/perl$perl_ver";
+
+my $httpd_base   = "$base/httpd/svn";
+my $httpd_gen    = '2.0';
+my $httpd_ver    = 'Apache/2.2.0';
+my @mpms         = (qw(prefork worker));
+
+my $mp_gen       = 2.0;
+my $mod_perl_so  = "mod_perl-$perl_ver.so";
+
 %Apache::TestItSelf::Config = (
     repos_type    => 'mp2_cpan_modules',
-    perl_exec     => "/home/$ENV{USER}/perl/5.8.7-ithread/bin/perl5.8.7",
-    mp_gen        => '2.0',
-    httpd_gen     => '2.0',
-    httpd_version => 'Apache/2.0.55',
+    perl_exec     => $PERL,
+    mp_gen        => $mp_gen,
+    httpd_gen     => $httpd_gen,
+    httpd_version => $httpd_ver,
     timeout       => 200,
     test_verbose  => 0,
 );
 
-my $path = "/home/$ENV{USER}/httpd";
 
 @Apache::TestItSelf::Configs = ();
-for (qw(prefork worker)) {
+foreach my $mpm (@mpms) {
     push @Apache::TestItSelf::Configs,
         {
-         apxs_exec     => "$path/$_/bin/apxs",
-         httpd_exec    => "$path/$_/bin/httpd",
-         httpd_conf    => "$path/$_/conf/httpd.conf",
-         httpd_mpm     => "$_",
-         makepl_arg    => "MOD_PERL=2 -libmodperl $path/$_/modules/mod_perl-5.8.7-ithread.so",
+         apxs_exec     => "$httpd_base/$mpm/bin/apxs",
+         httpd_exec    => "$httpd_base/$mpm/bin/httpd",
+         httpd_conf    => "$httpd_base/$mpm/conf/httpd.conf",
+         httpd_mpm     => $mpm,
+         makepl_arg    => "MOD_PERL=2 -libmodperl $httpd_base/$mpm/modules/$mod_perl_so",
         };
 }
 



Mime
View raw message