bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use strict and warnings, and clean up problems it found.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-10-12 17:28:04 -04:00
parent ff4f0adea6
commit f186d182a7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
trial-balance-report.plx
View file

@ -20,6 +20,9 @@
# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor # Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
# Boston, MA 02110-1301, USA. # Boston, MA 02110-1301, USA.
use strict;
use warnings;
use Math::BigFloat; use Math::BigFloat;
my $LEDGER_CMD = "/usr/bin/ledger"; my $LEDGER_CMD = "/usr/bin/ledger";
@ -56,7 +59,7 @@ while (my $negLine = <LEDGER_NEGATIVE>) {
$amount = ParseNumber($amount); $amount = ParseNumber($amount);
$account =~ s/^\s+//; $account =~ s/\s+$//; $account =~ s/^\s+//; $account =~ s/\s+$//;
$acc{$account}{negative} = $amount; $acct{$account}{negative} = $amount;
} }
close LEDGER_NEGATIVE; close LEDGER_NEGATIVE;
die "error($0): $! while running negative_ledger command line" unless ($? == 0); 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}); $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: # Local variables: