Commit 6790c559 authored by Dan Fandrich's avatar Dan Fandrich
Browse files

Detect curl source when valgrind provides an absolute source file name

parent c56c4a0a

tests/valgrind.pm

+6 −4
Original line number Diff line number Diff line
@@ -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 {