From e66b8ebdcba4085b17eaa27a1b41898fbc6f8d18 Mon Sep 17 00:00:00 2001
From: Anel Husakovic <anel@mariadb.org>
Date: Tue, 25 May 2021 18:17:29 +0200
Subject: MDEV-20787: Script dgcov.pl does not work

---
 mysql-test/dgcov.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/mysql-test/dgcov.pl b/mysql-test/dgcov.pl
index f04c73969b5..9938c477fb5 100755
--- a/mysql-test/dgcov.pl
+++ b/mysql-test/dgcov.pl
@@ -162,7 +162,13 @@ sub gcov_one_file {
   }
 
   # 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 (<FH>) {
     chomp;
-- 
cgit v1.2.1