use strict and warnings, and clean up problems it found.
This commit is contained in:
parent
ff4f0adea6
commit
f186d182a7
1 changed files with 5 additions and 2 deletions
|
@ -20,6 +20,9 @@
|
|||
# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
|
||||
# Boston, MA 02110-1301, USA.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Math::BigFloat;
|
||||
|
||||
my $LEDGER_CMD = "/usr/bin/ledger";
|
||||
|
@ -56,7 +59,7 @@ while (my $negLine = <LEDGER_NEGATIVE>) {
|
|||
$amount = ParseNumber($amount);
|
||||
$account =~ s/^\s+//; $account =~ s/\s+$//;
|
||||
|
||||
$acc{$account}{negative} = $amount;
|
||||
$acct{$account}{negative} = $amount;
|
||||
}
|
||||
close LEDGER_NEGATIVE;
|
||||
die "error($0): $! while running negative_ledger command line" unless ($? == 0);
|
||||
|
@ -97,7 +100,7 @@ foreach my $account (keys %acct) {
|
|||
$acct{$account}{negative}, $acct{$account}{postiive});
|
||||
|
||||
}
|
||||
print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", TOTAL, $totNeg, $totPos);
|
||||
print sprintf("%${ACCT_WIDTH}s \$%-.2d \$%-2.d\n", 'TOTAL', $totNeg, $totPos);
|
||||
###############################################################################
|
||||
#
|
||||
# Local variables:
|
||||
|
|
Loading…
Add table
Reference in a new issue