You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2003/08/13 21:02:51 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
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;