From 7941d2199fe5b20d07438e47614b6eeb236c53db Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 2 Dec 2011 07:24:51 -0500
Subject: [PATCH] Missing close brace.

---
 general-ledger-report.plx | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/general-ledger-report.plx b/general-ledger-report.plx
index fea66e4..d743fd7 100755
--- a/general-ledger-report.plx
+++ b/general-ledger-report.plx
@@ -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: