Return-Path: 
 <test-cvs-return-747-apmail-httpd-test-cvs-archive=httpd.apache.org@httpd.apache.org>
Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org
Received: (qmail 48666 invoked by uid 500); 14 Dec 2001 02:37:58 -0000
Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
list-help: <mailto:test-cvs-help@httpd.apache.org>
list-unsubscribe: <mailto:test-cvs-unsubscribe@httpd.apache.org>
list-post: <mailto:test-cvs@httpd.apache.org>
Delivered-To: mailing list test-cvs@httpd.apache.org
Received: (qmail 48655 invoked from network); 14 Dec 2001 02:37:58 -0000
Date: 14 Dec 2001 02:37:57 -0000
Message-ID: <20011214023757.82184.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache
 TestConfig.pm
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

dougm       01/12/13 18:37:57

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  add genfile_trace method to cut down some noise
  
  Revision  Changes    Path
  1.101     +9 -6      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.100
  retrieving revision 1.101
  diff -u -r1.100 -r1.101
  --- TestConfig.pm	2001/12/14 02:34:22	1.100
  +++ TestConfig.pm	2001/12/14 02:37:57	1.101
  @@ -615,6 +615,12 @@
       }
   }
   
  +sub genfile_trace {
  +    my($self, $file) = @_;
  +    my $name = abs2rel $file, $self->{vars}->{t_dir};
  +    $self->trace("generating $name");
  +}
  +
   sub genfile {
       my($self, $file) = @_;
   
  @@ -622,8 +628,7 @@
       my $dir = dirname $file;
       $self->makepath($dir);
   
  -    my $name = abs2rel $file, $self->{vars}->{t_dir};
  -    $self->trace("generating $name");
  +    $self->genfile_trace($file);
   
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "open $file: $!";
  @@ -645,8 +650,7 @@
       my $dir = dirname $file;
       $self->makepath($dir);
   
  -    my $name = abs2rel $file, $self->{vars}->{t_dir};
  -    $self->trace("generating $name");
  +    $self->genfile_trace($file);
   
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "open $file: $!";
  @@ -674,8 +678,7 @@
       my $dir = dirname $file;
       $self->makepath($dir);
   
  -    my $name = abs2rel $file, $self->{vars}->{t_dir};
  -    $self->trace("generating $name");
  +    $self->genfile_trace($file);
   
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "open $file: $!";