From 2c648caa66eca3dc34e63009ba5accc4e98ec75f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Jun 2001 11:27:00 +0000
Subject: [PATCH] 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
---
 FS/FS/Record.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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