Return-Path: Delivered-To: apmail-httpd-test-dev-archive@www.apache.org Received: (qmail 75264 invoked from network); 8 Sep 2003 22:25:09 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 8 Sep 2003 22:25:09 -0000 Received: (qmail 14154 invoked by uid 500); 8 Sep 2003 22:18:33 -0000 Delivered-To: apmail-httpd-test-dev-archive@httpd.apache.org Received: (qmail 14010 invoked by uid 500); 8 Sep 2003 22:18:31 -0000 Mailing-List: contact test-dev-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-dev@httpd.apache.org Delivered-To: moderator for test-dev@httpd.apache.org Received: (qmail 23911 invoked from network); 8 Sep 2003 21:53:17 -0000 From: Michael A Nachbaur To: test-dev@httpd.apache.org Subject: Patch to Apache::TestConfig for Mandrake Date: Mon, 8 Sep 2003 14:53:19 -0700 User-Agent: KMail/1.5 MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Content-Disposition: inline Message-Id: <200309081453.19118.mike@nachbaur.com> X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N I've created the following patch to help TestConfig.pm find the proper mod_perl httpd on Mandrake machines. Mandrake installs both a /usr/sbin/httpd and /usr/sbin/httpd-perl, and includes configuration for mod_perl acceleration with a standard (e.g. non-mod_perl) httpd in front of it. However, when Apache::Test is used, it finds /usr/sbin/httpd instead of the -perl one. I've fixed this for my site, but so I don't run into this later (nor for others), I'm sending this patch to the list. If you want to reply, please CC me, since I'm not on the list. RCS file: /home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v retrieving revision 1.171 diff -u -3 -p -r1.171 TestConfig.pm --- TestConfig.pm 13 Aug 2003 19:02:51 -0000 1.171 +++ TestConfig.pm 8 Sep 2003 21:14:36 -0000 @@ -310,7 +310,13 @@ sub configure_httpd { for my $dir (map { $vars->{$_} } qw(sbindir bindir)) { next unless defined $dir; my $httpd = catfile $dir, $vars->{target}; - next unless -x $httpd; + unless (-x $httpd) { + if (-x $httpd . '-perl') { + $vars->{httpd} = $httpd . '-perl'; + } else { + next; + } + } $vars->{httpd} = $httpd; last; } -- /* Michael A. Nachbaur * http://nachbaur.com/pgpkey.asc */ "Rome wasn't burned in a day. "