my @coverageLogPathnames; # First, look for files of the form tpxxx/tpxxx.log: use File::Find; my @testDirs; my $testsDir_mixed = ToMixed::PathToMixed( $testsDir ); find( sub { push @testDirs, $File::Find::name if -d && /tp_\w+/i }, $testsDir_mixed ); foreach (@testDirs) { m{^(.*)/(tp_\w+)}i; my ($pathPrefix,$tpname) = ( $1 ? ($1,$2) : ('.',$_) ); my $covLogPathname = "$pathPrefix/$tpname/$tpname"; #print STDERR " // No coverage-logs/hitmaps found in test chekcing $covLogPathname\n" unless $found; my $found = 0; foreach my $suff ('log', 'bin', 'txt', 'dat') { my $mixed = ToMixed::PathToMixed( "$covLogPathname" ); print STDERR " // No coverage-logs/hitmaps found in test chekcing $mixed\n" unless $found; if ( -e "$mixed" ) { push @coverageLogPathnames, "$covLogPathname.$suff"; print STDERR " // Found coverage output $covLogPathname.$suff\n"; ++$found; $foundone = $found; } } print STDERR " // No coverage-logs/hitmaps found in test subdirectory $pathPrefix/$tpname\n" unless $found; }