Return-Path: 
 <test-cvs-return-1332-apmail-httpd-test-cvs-archive=httpd.apache.org@httpd.apache.org>
Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org
Received: (qmail 20700 invoked by uid 500); 16 Apr 2003 04:53:21 -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 20688 invoked from network); 16 Apr 2003 04:53:20 -0000
Date: 16 Apr 2003 04:53:19 -0000
Message-ID: <20030416045319.23342.qmail@icarus.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/04/15 21:53:19

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  indentation improvements for autogenerated parts of VirtualHost entries
  
  Revision  Changes    Path
  1.151     +5 -3      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.150
  retrieving revision 1.151
  diff -u -r1.150 -r1.151
  --- TestConfig.pm	9 Apr 2003 01:39:18 -0000	1.150
  +++ TestConfig.pm	16 Apr 2003 04:53:19 -0000	1.151
  @@ -934,8 +934,9 @@
       #first is when we parse test .pm and .c files
       #second is when we scan *.conf.in
       my $form_postamble = sub {
  +        my $indent = shift;
           for my $pair (@_) {
  -            $self->postamble(@$pair);
  +            $self->postamble("$indent@$pair");
           }
       };
   
  @@ -944,13 +945,14 @@
           join "\n", map { "$indent@$_\n" } @_;
       };
   
  +    my $double_indent = $indent ? $indent x 2 : ' ' x 4;
       return {
           port          => $port,
           #used when parsing .pm and .c test modules
  -        in_postamble  => sub { $form_postamble->(@in_config) },
  +        in_postamble  => sub { $form_postamble->($double_indent, @in_config) },
           out_postamble => sub { $form_postamble->(@out_config) },
           #used when parsing *.conf.in files
  -        in_string     => $form_string->($indent x 2, @in_config),
  +        in_string     => $form_string->($double_indent, @in_config),
           out_string    => $form_string->($indent, @out_config),
           line          => "$indent<VirtualHost _default_:$port>",
       };