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