Detect curl source when valgrind provides an absolute source file name

1 files changed, 6 insertions, 4 deletions

diff --git a/tests/valgrind.pm b/tests/valgrind.pm
index e2ead03c8..82efe2f8a 100644
--- a/tests/valgrind.pm
+++ b/tests/valgrind.pm
@@ -21,6 +21,8 @@
 # $Id$
 ###########################################################################
 
+use File::Basename;
+
 sub valgrindparse {
     my ($srcdir,     # the dir in which the runtests script resides
         $sslenabled,
@@ -44,13 +46,13 @@ sub valgrindparse {
                 my $w = $4;
                 if($w =~ /(.*) \(([^:]*):(\d+)/) {
                     my ($func, $source, $line)=($1, $2, $3);
-
-                    if(-f "$srcdir/../src/$source" ||
-                       -f "$srcdir/../lib/$source") {
+                    my $sourcename = basename($source);
+                    if(-f "$srcdir/../src/$sourcename" ||
+                       -f "$srcdir/../lib/$sourcename") {
                         # this is our source
  #                       print "$func() at $source:$line\n";
                         $us++;
-                    }
+                    } #else {print "Not our source: $func, $source, $line\n";}
                 }
             }
             else {