diff options
| -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) { |