From 81547f3c746425592fe2659370e98990a90429a2 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 21 Sep 2007 20:45:36 +0000
Subject: Committing a fix for bug 1789169

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1639 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/gl.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/gl.pl b/bin/gl.pl
index 218c5bb2..ce69f677 100755
--- a/bin/gl.pl
+++ b/bin/gl.pl
@@ -1343,7 +1343,8 @@ sub post {
         $credit += $cr;
     }
 
-    if ( $form->round_amount( $debit, 2 ) != $form->round_amount( $credit, 2 ) )
+    if ($form->round_amount( $debit, 2 ) != $form->round_amount( $credit, 2 ) ||
+      $debit->is_nan || $credit->is_nan)
     {
         $form->error( $locale->text('Out of balance transaction!') );
     }
-- 
cgit v1.2.3