mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-27 05:50:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

Detect curl source when valgrind provides an absolute source file name

Browse Source
This commit is contained in:
Dan Fandrich 2007-10-31 18:32:06 +00:00
parent c56c4a0a47
commit 6790c559af
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/valgrind.pm
View File

@ -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 {