generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

says nothing if no errors were found

Browse Source
This commit is contained in:
Daniel Stenberg 2000-11-21 15:50:17 +00:00
parent ae58d84429
commit 7db43ae0ed
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
memanalyze.pl
View File

@ -80,19 +80,16 @@ while(<STDIN>) {
} }
} }
if(0 == $totalmem) { if($totalmem) {
print "No leak found\n"; print "Leak detected: memory still allocated: $totalmem bytes\n";
exit;
}
print "Leak detected: memory still allocated: $totalmem bytes\n"; for(keys %sizeataddr) {
for(keys %sizeataddr) {
$addr = $_; $addr = $_;
$size = $sizeataddr{$addr}; $size = $sizeataddr{$addr};
if($size) { if($size) {
print "At $addr, there's $size bytes.\n"; print "At $addr, there's $size bytes.\n";
print " allocated by ".$getmem{$addr}."\n"; print " allocated by ".$getmem{$addr}."\n";
} }
}
} }