Return-Path: 
 <test-cvs-return-1451-apmail-httpd-test-cvs-archive=httpd.apache.org@httpd.apache.org>
Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org
Received: (qmail 22224 invoked by uid 500); 13 Aug 2003 19:02:42 -0000
Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
list-help: <mailto:test-cvs-help@httpd.apache.org>
list-unsubscribe: <mailto:test-cvs-unsubscribe@httpd.apache.org>
list-post: <mailto:test-cvs@httpd.apache.org>
Delivered-To: mailing list test-cvs@httpd.apache.org
Received: (qmail 22211 invoked from network); 13 Aug 2003 19:02:42 -0000
Received: from unknown (HELO minotaur.apache.org) (209.237.227.194)
  by daedalus.apache.org with SMTP; 13 Aug 2003 19:02:42 -0000
Received: (qmail 95335 invoked by uid 1072); 13 Aug 2003 19:02:51 -0000
Date: 13 Aug 2003 19:02:51 -0000
Message-ID: <20030813190251.95334.qmail@minotaur.apache.org>
From: stas@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

stas        2003/08/13 12:02:51

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  fix the parse_vhost pattern not to interpter perl module names (e.g. <VirtualHost
  TestHooks::stacked_handlers2>) as <VirtualHost servername:module>
  
  Revision  Changes    Path
  1.171     +1 -1      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.170
  retrieving revision 1.171
  diff -u -r1.170 -r1.171
  --- TestConfig.pm	12 Aug 2003 23:36:51 -0000	1.170
  +++ TestConfig.pm	13 Aug 2003 19:02:51 -0000	1.171
  @@ -928,7 +928,7 @@
       my($self, $line) = @_;
   
       my($indent, $module, $namebased);
  -    if ($line =~ /^(\s*)<VirtualHost\s+(?:_default_:|([^:]+):)?(.*?)\s*>\s*$/) {
  +    if ($line =~ /^(\s*)<VirtualHost\s+(?:_default_:|([^:]+):(?!:))?(.*?)\s*>\s*$/) {
           $indent    = $1 || "";
           $namebased = $2 || "";
           $module    = $3;