diff options
author | ivan <ivan> | 2003-07-11 07:30:57 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-07-11 07:30:57 +0000 |
commit | 3b0d96e466a6dbe2a27e45890b08e0fd79e8fdab (patch) | |
tree | 6496d0c13ff4a9b527a8ce2606e41f7c44eeb404 | |
parent | a1f82a6afd45e0fd208b1e69c6647195eab48bb6 (diff) |
provide stack backtrace when we wind up in FS::Record::AUTOLOAD by accident
-rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 9a724feac..c756e9825 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -426,11 +426,11 @@ sub AUTOLOAD { $field =~ s/.*://; if ( defined($value) ) { confess "errant AUTOLOAD $field for $self (arg $value)" - unless $self->can('setfield'); + unless $ref($self) && $self->can('setfield'); $self->setfield($field,$value); } else { confess "errant AUTOLOAD $field for $self (no args)" - unless $self->can('getfield'); + unless ref($self) && $self->can('getfield'); $self->getfield($field); } } |