diff options
| -rw-r--r-- | tests/valgrind.pm | 10 |
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 { |