From 342d620aef52798493c7824e642008690e34878c Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 21 Oct 2006 02:09:43 +0000 Subject: fixed eval line in parse_amount git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@243 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Form.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index f305690a..a1267fbe 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -489,7 +489,7 @@ sub parse_amount { my ($self, $myconfig, $amount) = @_; - eval $amount->isa('Math::BigFloat'); # Amount may not be an object + eval{ $amount->isa('Math::BigFloat'); }; # Amount may not be an object if (!$@ and $amount->isa('Math::BigFloat')){ return $amount; } -- cgit v1.2.3