From 081b2af1a72788c4c3bd9e769d90155ad72e26cb Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 18 Sep 2008 19:58:27 +0000
Subject: CHangeing DBObject's method argument detection to avoid problem
 cases.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2330 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index de14b2e3..dc3ebd92 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -131,7 +131,7 @@ sub exec_method {
     }
     $ref->{pronargs} = 0 unless defined $ref->{pronargs};
     # If the user provided args..
-    if (length(@in_args) == 0) {
+    if (!defined  @in_args) {
         @proc_args = $self->_parse_array($args);
         if (@proc_args) {
             for my $arg (@proc_args) {
-- 
cgit v1.2.3