Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 58213 invoked by uid 500); 15 Oct 2001 14:48:36 -0000 Mailing-List: contact test-cvs-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-cvs@httpd.apache.org Received: (qmail 58143 invoked from network); 15 Oct 2001 14:48:35 -0000 Date: 15 Oct 2001 14:43:01 -0000 Message-ID: <20011015144301.26800.qmail@icarus.apache.org> From: wrowe@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N wrowe 01/10/15 07:43:01 Modified: perl-framework/Apache-Test/lib/Apache TestConfig.pm Log: Another task for WINFU ... paths need to be forward slashed in Apache.conf, even against 'platform convention', due to '\' escaping. Revision Changes Path 1.72 +6 -0 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Index: TestConfig.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v retrieving revision 1.71 retrieving revision 1.72 diff -u -r1.71 -r1.72 --- TestConfig.pm 2001/10/14 02:11:36 1.71 +++ TestConfig.pm 2001/10/15 14:43:01 1.72 @@ -192,6 +192,12 @@ $vars->{t_logs} ||= catfile $vars->{serverroot}, 'logs'; $vars->{t_conf_file} ||= catfile $vars->{t_conf}, 'httpd.conf'; + if (WINFU) { + for (keys %$vars) { + $vars->{$_} =~ s|\\|\/|g; + } + } + $vars->{scheme} ||= 'http'; $vars->{servername} ||= $self->default_servername; $vars->{port} ||= $self->default_port;