if ($foundone == 0) { # New option: search under the hitmaps-directory (one level only, any name in front) my $covLogPathname = "$testsDir"; my @hitfiles; my $covLogPathname_mixed = ToMixed::PathToMixed( $covLogPathname ); find( sub { push @hitfiles, $File::Find::name if -f }, $covLogPathname_mixed ); foreach (@hitfiles) { my $foundfile = $_; my ($base,$path,$suff) = fileparse( $foundfile, "\.(log|bin|txt|dat)" ); if ($suff ne "") { push @coverageLogPathnames, "$foundfile"; print STDERR " // Found coverage output $foundfile\n"; } } }