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:",