httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jor...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Date Thu, 20 Mar 2003 14:06:05 GMT
jorton      2003/03/20 06:06:04

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
  Log:
  Fix errors during configuration due to parse_vhost returning undef.
  
  Reviewed and rewritten by: Stas Bekman
  
  Revision  Changes    Path
  1.66      +8 -4      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.65
  retrieving revision 1.66
  diff -u -r1.65 -r1.66
  --- TestConfigPerl.pm	3 Feb 2003 02:18:32 -0000	1.65
  +++ TestConfigPerl.pm	20 Mar 2003 14:06:04 -0000	1.66
  @@ -316,11 +316,15 @@
       my($self, $line, $indent) = @_;
   
       my $cfg = $self->parse_vhost($line);
  -    my $port = $cfg->{port};
  -    $cfg->{out_postamble}->();
  -    $self->postamble("$indent<VirtualHost _default_:$port>");
  -    $cfg->{in_postamble}->();
   
  +    if ($cfg) {
  +        my $port = $cfg->{port};
  +        $cfg->{out_postamble}->();
  +        $self->postamble("$indent<VirtualHost _default_:$port>");
  +        $cfg->{in_postamble}->();
  +    } else {
  +        $self->postamble("$indent$line");
  +    }
   }
   
   #the idea for each group:
  
  
  

Mime
View raw message