summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-09-18 19:58:27 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-09-18 19:58:27 +0000
commit081b2af1a72788c4c3bd9e769d90155ad72e26cb (patch)
treefc124e4c725758a38ad43de4bf90f7db2b111980 /LedgerSMB
parent2c7e7cf2afe23874affd215cbf2d8840c1c34612 (diff)
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
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject.pm2
1 files changed, 1 insertions, 1 deletions
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) {