cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm

[stas]

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("[EMAIL PROTECTED]");
           }
       };
   
  @@ -944,13 +945,14 @@
           join "\n", map { "[EMAIL PROTECTED]" } @_;
       };
   
  +    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>",
       };