1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

MDEV-20787 Script dgcov.pl does not work

Browse Source 
Author: Anel Husakovic <anel@mariadb.org>
This commit is contained in:
Monty 2021-06-14 18:40:06 +03:00
parent 7f0024a54f
commit 6e282e7efc
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mysql-test/dgcov.pl
View File

@ -161,8 +161,13 @@ sub gcov_one_file {
system($cmd)==0 or die "system($cmd): $? $!"; system($cmd)==0 or die "system($cmd): $? $!";
} }
# now, read the generated file (my $filename = $_)=~ s/\.[^.]+$//; # remove extension
open FH, '<', "$_.gcov" or die "open(<$_.gcov): $!"; my $gcov_file_path= $File::Find::dir."/$filename.gcov";
if (! -f $gcov_file_path)
{
return;
}
open FH, '<', "$gcov_file_path" or die "open(<$gcov_file_path): $!";
my $fname; my $fname;
while (<FH>) { while (<FH>) {
chomp; chomp;