[interchange-cvs] interchange - racke modified lib/Vend/Data.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Sep 26 10:17:01 2001
User: racke
Date: 2001-09-26 14:16:28 GMT
Modified: lib/Vend Data.pm
Log:
merged changes 2.0 vs 2.0.2.1
Revision Changes Path
2.1 +6 -2 interchange/lib/Vend/Data.pm
rev 2.1, prev_rev 2.0
Index: Data.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Data.pm,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -r2.0 -r2.1
--- Data.pm 2001/07/18 02:23:13 2.0
+++ Data.pm 2001/09/26 14:16:28 2.1
@@ -1,6 +1,6 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.0 2001/07/18 02:23:13 jon Exp $
+# $Id: Data.pm,v 2.1 2001/09/26 14:16:28 racke Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -897,7 +897,11 @@
#::logDebug("ready to try opening db $table_name") if ! $db;
eval {
if($MVSAFE::Safe) {
- $db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $obj->{db_file} );
+ if (exists $Vend::Interpolate::Db{$class_config->{Class}}) {
+ $db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $obj->{db_file} );
+ } else {
+ die errmsg("no access for database %s", $table_name);
+ }
}
else {
$db = $class_config->{Class}->open_table( $obj, $obj->{db_file} );