From 9d3ab440d29976fd18a51e5873332c7867264fe7 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 30 Apr 2010 17:07:23 +0200
Subject: [PATCH] * fix in package_size: should use $fsize instead of $opsize
---
lib/B/TerseSize.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/B/TerseSize.pm b/lib/B/TerseSize.pm
index 076b97f..444ea94 100644
--- a/lib/B/TerseSize.pm
+++ b/lib/B/TerseSize.pm
@@ -125,7 +125,7 @@ sub package_size {
for (keys %{ $filelex{$package} }) {
my $fsize = $filelex{$package}->{$_};
- $total_opsize += $opsize;
+ $total_opsize += $fsize;
$retval{"my ${_} = ...;"} =
{'size' => $fsize};
}
--
1.7.0.3