[interchange-cvs] interchange - racke modified lib/Vend/Data.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Sep 26 10:08:00 2001
User: racke
Date: 2001-09-26 14:07:03 GMT
Modified: lib/Vend Tag: STABLE_4_8-branch Data.pm
Log:
use a better error message than
Can't call method "open_table" on an undefined value
Revision Changes Path
No revision
No revision
2.0.2.1 +6 -2 interchange/lib/Vend/Data.pm
rev 2.0.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.0.2.1
diff -u -r2.0 -r2.0.2.1
--- Data.pm 2001/07/18 02:23:13 2.0
+++ Data.pm 2001/09/26 14:07:03 2.0.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.0.2.1 2001/09/26 14:07:03 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} );