Number parsing fix for LedgerSMB.pm and more test cases

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1198 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 1 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index a897a070..34b8ad09 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -373,7 +373,7 @@ sub parse_amount {
     my $myconfig = $args{user};
     my $amount   = $args{amount};
 
-    if ( $amount eq '' or $amount == undef ) {
+    if ( $amount eq '' or ! defined $amount) {
         return 0;
     }