moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

says nothing if no errors were found

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

21
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) {
$addr = $_;
for(keys %sizeataddr) { $size = $sizeataddr{$addr};
$addr = $_; if($size) {
$size = $sizeataddr{$addr}; print "At $addr, there's $size bytes.\n";
if($size) { print " allocated by ".$getmem{$addr}."\n";
print "At $addr, there's $size bytes.\n"; }
print " allocated by ".$getmem{$addr}."\n";
} }
} }