aboutsummaryrefslogtreecommitdiff
path: root/memanalyze.pl
diff options
context:
space:
mode:
Diffstat (limited to 'memanalyze.pl')
-rwxr-xr-xmemanalyze.pl21
1 files changed, 9 insertions, 12 deletions
diff --git a/memanalyze.pl b/memanalyze.pl
index 3604db85d..03b7b62f8 100755
--- a/memanalyze.pl
+++ b/memanalyze.pl
@@ -80,19 +80,16 @@ while(<STDIN>) {
}
}
-if(0 == $totalmem) {
- print "No leak found\n";
- exit;
-}
-
-print "Leak detected: memory still allocated: $totalmem bytes\n";
+if($totalmem) {
+ print "Leak detected: memory still allocated: $totalmem bytes\n";
-for(keys %sizeataddr) {
- $addr = $_;
- $size = $sizeataddr{$addr};
- if($size) {
- print "At $addr, there's $size bytes.\n";
- print " allocated by ".$getmem{$addr}."\n";
+ for(keys %sizeataddr) {
+ $addr = $_;
+ $size = $sizeataddr{$addr};
+ if($size) {
+ print "At $addr, there's $size bytes.\n";
+ print " allocated by ".$getmem{$addr}."\n";
+ }
}
}