# Second, look for logs named hitmap.(log|bin|txt): find( sub { if (-f && /^[-\w]*hitmap[-\w]*\.(log|bin|txt|dat)$/i) { push @coverageLogPathnames, $File::Find::name; print STDERR " // Found coverage output $File::Find::name\n"; } }, $testsDir_mixed ); print STDERR " // Found coverage output hi4"; print STDERR " // Number of coverage logs found: ", (@coverageLogPathnames+0), "\n"; return \@coverageLogPathnames; }