X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=site_perl%2FRecord.pm;h=5d69619ef896034b80dedc6109e78ace4128b40f;hb=1e3eae905b861761f93643aa5fce14a8be5d9ed2;hp=6496d3ce5705dbc6011cc8e81bc0404b15872c37;hpb=065d837ab0125c1b035809b744be4f3c8e4385a3;p=freeside.git

diff --git a/site_perl/Record.pm b/site_perl/Record.pm
index 6496d3ce5..5d69619ef 100644
--- a/site_perl/Record.pm
+++ b/site_perl/Record.pm
@@ -504,7 +504,7 @@ Not yet implemented, croaks.  Derived classes should provide a check method.
 =cut
 
 sub check {
-  croak "FS::Record::check not implemented; supply one in subclass!";
+  confess "FS::Record::check not implemented; supply one in subclass!";
 }
 
 =item unique COLUMN
@@ -825,7 +825,7 @@ sub hfields {
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.16 1999-04-10 07:03:38 ivan Exp $
+$Id: Record.pm,v 1.17 1999-07-17 01:34:25 ivan Exp $
 
 =head1 BUGS
 
@@ -947,7 +947,10 @@ added pod documentation ivan@sisd.com 98-sep-6
 ut_phonen got ''; at the end ivan@sisd.com 98-sep-27
 
 $Log: Record.pm,v $
-Revision 1.16  1999-04-10 07:03:38  ivan
+Revision 1.17  1999-07-17 01:34:25  ivan
+s/croak/confess/; in check method
+
+Revision 1.16  1999/04/10 07:03:38  ivan
 return the value with ut_* error messages, to assist in debugging
 
 Revision 1.15  1999/04/08 12:08:59  ivan