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 TestConfig.pm
Date Fri, 14 Dec 2001 00:17:28 GMT
dougm       01/12/13 16:17:28

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  option to leave out generated warning in writefile
  
  Revision  Changes    Path
  1.98      +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.97
  retrieving revision 1.98
  diff -u -r1.97 -r1.98
  --- TestConfig.pm	2001/12/13 19:01:43	1.97
  +++ TestConfig.pm	2001/12/14 00:17:28	1.98
  @@ -620,7 +620,7 @@
   
   # gen + write file
   sub writefile {
  -    my($self, $file, $content) = @_;
  +    my($self, $file, $content, $nowarning) = @_;
   
       # create the parent dir if it doesn't exist yet
       my $dir = dirname $file;
  @@ -632,8 +632,10 @@
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "open $file: $!";
   
  -    if (my $msg = $self->genwarning($file)) {
  -        print $fh $msg, "\n";
  +    unless ($nowarning) {
  +        if (my $msg = $self->genwarning($file)) {
  +            print $fh $msg, "\n";
  +        }
       }
   
       if ($content) {
  
  
  

Mime
View raw message