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

[dougm]

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: $!";