diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-18 19:58:27 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-09-18 19:58:27 +0000 |
| commit | 081b2af1a72788c4c3bd9e769d90155ad72e26cb (patch) | |
| tree | fc124e4c725758a38ad43de4bf90f7db2b111980 | |
| parent | 2c7e7cf2afe23874affd215cbf2d8840c1c34612 (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
| -rw-r--r-- | LedgerSMB/DBObject.pm | 2 |
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) { |