Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 98104 invoked by uid 500); 7 Apr 2002 04:18:03 -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 98093 invoked from network); 7 Apr 2002 04:18:03 -0000 Date: 7 Apr 2002 04:18:02 -0000 Message-ID: <20020407041802.17973.qmail@icarus.apache.org> From: dougm@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigParse.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 02/04/06 20:18:02 Modified: perl-framework/Apache-Test/lib/Apache TestConfigParse.pm Log: avoid bug in rel2abs that results in error message: "Unsuccessful stat on filename containing newline" if we try server_file_rel2abs before ServerRoot is known. (shouldn't normally happen) Revision Changes Path 1.22 +6 -0 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigParse.pm Index: TestConfigParse.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigParse.pm,v retrieving revision 1.21 retrieving revision 1.22 diff -u -r1.21 -r1.22 --- TestConfigParse.pm 4 Apr 2002 17:16:13 -0000 1.21 +++ TestConfigParse.pm 7 Apr 2002 04:18:02 -0000 1.22 @@ -48,6 +48,12 @@ my($self, $file, $base) = @_; $base ||= $self->{inherit_config}->{ServerRoot}; + + unless ($base) { + warning "unable to resolve $file (ServerRoot not defined yet?)"; + return $file; + } + rel2abs $file, $base; }