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

[stas]

stas        02/01/20 18:13:55

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
  Log:
  - allow comments in __DATA__ config sections and preserve them while
  copying data to the config file
  
  Revision  Changes    Path
  1.45      +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.44
  retrieving revision 1.45
  diff -u -r1.44 -r1.45
  --- TestConfigPerl.pm 14 Jan 2002 06:44:10 -0000      1.44
  +++ TestConfigPerl.pm 21 Jan 2002 02:13:55 -0000      1.45
  @@ -200,6 +200,11 @@
           chomp;
           s/^\s+//;
           $self->replace;
  +        if (/^#/) {
  +            # preserve comments
  +            $self->postamble($_);
  +            next;
  +        }
           my($directive, $rest) = split /\s+/, $_, 2;
           if ($outside_container{$directive}) {
               $self->postamble($directive => $rest);