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

Missing close brace.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-02 07:24:51 -05:00
parent 9095dad4f0
commit 7941d2199f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
general-ledger-report.plx
View file

@ -70,17 +70,17 @@ foreach my $acct (
sort {
if ($a =~ /^Assets/ and $b !~ /^Assets/) {
return -1;
elsif ($a =~ /^Liabilities/ and $b !~ /^Liabilitie/) {
} elsif ($a =~ /^Liabilities/ and $b !~ /^Liabilitie/) {
return -1;
} else {
return $a cmp $b;
}
} @accounts) {
} @accounts) {
print CHART_OUTPUT "$acct\n";
push(@sortedAccounts, $acct);
}
close(CHART_OUTPUT); die "error writing to chart-of-accounts.txt: $!" unless $? == 0;
###############################################################################
#
# Local variables: