dougm 2002/06/20 20:17:51
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
better core file matching
Revision Changes Path
1.93 +5 -2
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.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- TestRun.pm 30 May 2002 05:41:58 -0000 1.92
+++ TestRun.pm 21 Jun 2002 03:17:51 -0000 1.93
@@ -601,13 +601,16 @@
$oh[ rand scalar @oh ];
}
+#e.g. t/core or t/core.12499
+my $core_pat = '^core(\.\d+)?' . "\$";
+
sub scan_core {
my $self = shift;
my $vars = $self->{test_config}->{vars};
my $times = 0;
finddepth(sub {
- return unless /^core$/;
+ return unless /$core_pat/o;
my $core = "$File::Find::dir/$_";
if (exists $core_files{$core} && $core_files{$core} == -M $core) {
# we have seen this core file before the start of the test
@@ -631,7 +634,7 @@
%core_files = (); # reset global
finddepth(sub {
- return unless /^core$/;
+ return unless /$core_pat/o;
my $core = "$File::Find::dir/$_";
info "consider removing an old $core file before running tests";
# remember the timestamp of $core so we can check if it's the
