diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-13 23:12:16 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-13 23:12:16 +0000 |
| commit | 5bf40c4bb43274c05d6843dcc9dd7704cd5e80b6 (patch) | |
| tree | c2c0af1039cb108a22cd84506fedca0b5142d3b1 /LedgerSMB | |
| parent | 5c84fa7553e974a341320bf36ee8e25d1dd7b560 (diff) | |
Correcting argument mismatch in function mapping
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1590 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -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 f83ab3ea..a0c6ba49 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -50,7 +50,7 @@ sub AUTOLOAD { my $type = Scalar::Util::blessed $self; $type =~ m/::(.*?)$/; $type = lc $1; - $self->exec_method( procname => "$type" . "_" . $AUTOLOAD, args => \@_); + $self->exec_method( funcname => "$type" . "_" . $AUTOLOAD, args => \@_); } sub new { |