From 6e282e7efc0be5cb3b08c42a653a46a2a4a91edf Mon Sep 17 00:00:00 2001 From: Monty Date: Mon, 14 Jun 2021 18:40:06 +0300 Subject: [PATCH] MDEV-20787 Script dgcov.pl does not work Author: Anel Husakovic --- mysql-test/dgcov.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/mysql-test/dgcov.pl b/mysql-test/dgcov.pl index f04c73969b5..525db191efa 100755 --- a/mysql-test/dgcov.pl +++ b/mysql-test/dgcov.pl @@ -161,8 +161,13 @@ sub gcov_one_file { system($cmd)==0 or die "system($cmd): $? $!"; } - # now, read the generated file - open FH, '<', "$_.gcov" or die "open(<$_.gcov): $!"; + (my $filename = $_)=~ s/\.[^.]+$//; # remove extension + 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; while () { chomp;