summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-21 20:45:36 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-21 20:45:36 +0000
commit81547f3c746425592fe2659370e98990a90429a2 (patch)
tree237485b4f07218e30f3345d0a150423229054963 /bin
parent9300ba7693c69f67cbfb3f337266edddf7b6fa4d (diff)
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
Diffstat (limited to 'bin')
-rwxr-xr-xbin/gl.pl3
1 files changed, 2 insertions, 1 deletions
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!') );
}