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 02:37:57 GMT
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: $!";
  
  
  

Mime
View raw message