[interchange-cvs] interchange - racke modified lib/Vend/Data.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Mon Feb 18 15:23:01 2002
User: racke
Date: 2002-02-18 20:22:35 GMT
Modified: lib/Vend Tag: LINUXIA Data.pm
Log:
backported catch for missing database entry
Revision Changes Path
No revision
No revision
1.13.4.9 +6 -3 interchange/lib/Vend/Data.pm
rev 1.13.4.9, prev_rev 1.13.4.8
Index: Data.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Data.pm,v
retrieving revision 1.13.4.8
retrieving revision 1.13.4.9
diff -u -r1.13.4.8 -r1.13.4.9
--- Data.pm 11 Sep 2001 11:00:08 -0000 1.13.4.8
+++ Data.pm 18 Feb 2002 20:22:35 -0000 1.13.4.9
@@ -1,6 +1,6 @@
# Data.pm - Interchange databases
#
-# $Id: Data.pm,v 1.13.4.8 2001/09/11 11:00:08 racke Exp $
+# $Id: Data.pm,v 1.13.4.9 2002/02/18 20:22:35 racke Exp $
#
# Copyright (C) 1996-2000 Akopia, Inc. <info@akopia.com>
#
@@ -882,8 +882,11 @@
no strict 'refs';
eval {
if($MVSAFE::Safe) {
-#::logDebug("Opening under Safe: $obj->{name}: table=$table_name") if $type == 9;
- $db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $table_name );
+ if (exists $Vend::Interpolate::Db{$class_config->{Class}}) {
+ $db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $table_name );
+ } else {
+ die errmsg("no access for database %s", $table_name);
+ }
}
else {
#::logDebug("Opening $obj->{name}: table=$table_name") if $type == 9;