diff options
| author | ivan <ivan> | 2001-06-03 11:27:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-06-03 11:27:00 +0000 |
| commit | 2c648caa66eca3dc34e63009ba5accc4e98ec75f (patch) | |
| tree | ba4717d7aa2c1f9949bb1cd198c7ed90d301f38b | |
| parent | 5928d6721ca5328d9a687d914296a2dcc3156a11 (diff) | |
track down
Can't locate object method "setfield" via package "svc_acct_sm" at
/usr/local/lib/perl5/site_perl/5.005/FS/Record.pm line 318.
errors
| -rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index f88be8b00..861f2c46b 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -315,6 +315,8 @@ sub AUTOLOAD { my($field)=$AUTOLOAD; $field =~ s/.*://; if ( defined($value) ) { + confess "errant AUTOLOAD $field for $self (arg $value)" + unless $self->can('setfield'); $self->setfield($field,$value); } else { $self->getfield($field); @@ -915,7 +917,7 @@ sub DESTROY { return; } =head1 VERSION -$Id: Record.pm,v 1.16 2001-05-07 15:42:02 ivan Exp $ +$Id: Record.pm,v 1.17 2001-06-03 11:27:00 ivan Exp $ =head1 BUGS |