httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Date Wed, 21 Nov 2001 19:24:47 GMT
dougm       01/11/21 11:24:47

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
  Log:
  fix test module config parsing to deal with IfModule and nested containers
  
  Revision  Changes    Path
  1.41      +5 -0      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.40
  retrieving revision 1.41
  diff -u -r1.40 -r1.41
  --- TestConfigPerl.pm	2001/11/17 02:09:30	1.40
  +++ TestConfigPerl.pm	2001/11/21 19:24:47	1.41
  @@ -197,6 +197,7 @@
           last if /^\#endif/; #for .c modules
           next unless /\S+/;
           chomp;
  +        s/^\s+//;
           $self->replace;
           my($directive, $rest) = split /\s+/, $_, 2;
           if ($outside_container{$directive}) {
  @@ -213,6 +214,9 @@
                   $self->postamble($_);
               }
           }
  +        elsif ($directive =~ /IfModule/) {
  +            $self->postamble($_);
  +        }
           elsif ($directive =~ m/^<(\w+)/) {
               my $cfg;
               if ($directive eq '<VirtualHost') {
  @@ -227,6 +231,7 @@
               my $end = "</$1>";
               while (<$fh>) {
                   chomp;
  +                s/^\s+//;
                   $self->replace;
                   $self->postamble($_);
                   last if m:^\Q$end:;
  
  
  

Mime
View raw message