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

[stas]

stas        2004/02/23 17:14:15

  Modified:    perl-framework/Apache-Test/lib/Apache TestSmoke.pm
  Log:
  yet another 'move-out-of-t' fix
  
  Revision  Changes    Path
  1.28      +3 -1      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
  
  Index: TestSmoke.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -u -r1.27 -r1.28
  --- TestSmoke.pm      31 Jan 2004 10:19:36 -0000      1.27
  +++ TestSmoke.pm      24 Feb 2004 01:14:15 -0000      1.28
  @@ -597,7 +597,9 @@
       $self->{start_time} = $time;
       $time =~ s/\s/_/g;
       $time =~ s/:/-/g; # winFU
  -    my $file = $self->{opts}->{report} || "../smoke-report-$time.txt";
  +    my $file = $self->{opts}->{report} ||
  +        catfile Apache::Test::vars('top_dir'), "smoke-report-$time.txt";
  +    info "Report file: $file";
   
       open my $fh, ">$file" or die "cannot open $file for writing: $!";
       $self->{fh} = $fh;