From c2a7ce47397f8110245db44b1de0ddf920568895 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 17 Jul 1999 01:34:25 +0000
Subject: [PATCH] s/croak/confess/; in check method

---
 site_perl/Record.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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