httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Thu, 04 Nov 2004 05:05:00 GMT
stas        2004/11/03 21:05:00

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  bug fix: core file incremental scan was broken
  
  Revision  Changes    Path
  1.184     +6 -6      httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.183
  retrieving revision 1.184
  diff -u -u -r1.183 -r1.184
  --- TestRun.pm	22 Sep 2004 23:14:29 -0000	1.183
  +++ TestRun.pm	4 Nov 2004 05:05:00 -0000	1.184
  @@ -834,13 +834,13 @@
           require IO::Dir;
           my @cores = ();
           for (IO::Dir->new($vars->{t_dir})->read) {
  -            next unless -f;
  +            my $file = catfile $vars->{t_dir}, $_;
  +            next unless -f $file;
               next unless /$core_pat/o;
  -            my $core = catfile $vars->{t_dir}, $_;
  -            next if exists $core_files{$core} &&
  -                $core_files{$core} == -M $core;
  -            $core_files{$core} = -M $core;
  -            push @cores, $core;
  +            next if exists $core_files{$file} &&
  +                $core_files{$file} == -M $file;
  +            $core_files{$file} = -M $file;
  +            push @cores, $file;
           }
           return @cores 
               ? join "\n", "server dumped core, for stacktrace, run:",
  
  
  

Mime
View raw message