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 2002/03/09 05:51:40 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
stas 02/03/08 20:51:39
Modified: perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Log:
If we have a vh block with many nested blocks it's nice to preserve the
original indentation. so don't remove the leading space.
Revision Changes Path
1.47 +1 -2 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm
Index: TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- TestConfigPerl.pm 31 Jan 2002 12:48:57 -0000 1.46
+++ TestConfigPerl.pm 9 Mar 2002 04:51:39 -0000 1.47
@@ -238,10 +238,9 @@
my $end = "</$1>";
while (<$fh>) {
chomp;
- s/^\s+//;
$self->replace;
$self->postamble($_);
- last if m:^\Q$end:;
+ last if m:^\s*\Q$end:;
}
}
else {