From ff4f0adea6c5f63d43c0d909756db79e9d9c59f8 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 12 Oct 2011 17:27:25 -0400
Subject: [PATCH] Use math::BigFloat and make the default report 'reg'.

---
 trial-balance-report.plx | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/trial-balance-report.plx b/trial-balance-report.plx
index 2a2c174..f5b2620 100755
--- a/trial-balance-report.plx
+++ b/trial-balance-report.plx
@@ -2,7 +2,7 @@
 # trail-balance-report.plx                                    -*- Perl -*-
 #
 #    Script to generate a Trial Balance report for a ledger.
-
+#
 # Copyright (C) 2011, Bradley M. Kuhn
 #
 # This program gives you software freedom; you can copy, modify, convey,
@@ -20,6 +20,8 @@
 #    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
 #                                    Boston, MA 02110-1301, USA.
 
+use Math::BigFloat;
+
 my $LEDGER_CMD = "/usr/bin/ledger";
 
 my $ACCT_WIDTH = 70;
@@ -37,7 +39,8 @@ if (@ARGV == 0) {
   exit 1;
 }
 
-my(@ledgerOptions) = ('--wide-register-format', "%-.${ACCT_WIDTH}A %22.108t\n",  '-w', '-s', @ARGV);
+my(@ledgerOptions) = ('--wide-register-format', "%-.${ACCT_WIDTH}A %22.108t\n",  '-w', '-s', @ARGV,
+                     'reg');
 
 
 open(LEDGER_NEGATIVE, "-|", $LEDGER_CMD, '-d', 'a<0', @ledgerOptions)