diff options
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 37652d5b..f61ae9a8 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -507,6 +507,9 @@ sub parse_amount { } $amount =~ s/\s?CR//; $amount = new Math::BigFloat($amount); + if ($amount->is_nan){ + $self->error("Invalid number detected during parsing"); + } return ( $amount * 1 ); } |