diff options
| author | ivan <ivan> | 1999-07-17 01:34:25 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-17 01:34:25 +0000 |
| commit | c2a7ce47397f8110245db44b1de0ddf920568895 (patch) | |
| tree | bcf732aa90fa4f7df76f35120fe042f66358365b | |
| parent | 518adbd51689c6b8be42891485648fccd650f8cb (diff) | |
s/croak/confess/; in check method
| -rw-r--r-- | site_perl/Record.pm | 9 |
1 files 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 |