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 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 { |