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