[interchange-cvs] interchange - heins modified lib/Vend/Data.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Mon Jul 8 11:33:01 2002
User: heins
Date: 2002-07-08 15:32:06 GMT
Modified: lib/Vend Data.pm
Log:
* Fix bug where wrong value was used to select $Vend::Interplate::Db key
in Safe mode.
Revision Changes Path
2.11 +2 -2 interchange/lib/Vend/Data.pm
rev 2.11, prev_rev 2.10
Index: Data.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /anon_cvs/repository/interchange/lib/Vend/Data.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- Data.pm 27 Jun 2002 22:24:10 -0000 2.10
+++ Data.pm 8 Jul 2002 15:32:06 -0000 2.11
@@ -1,6 +1,6 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.10 2002/06/27 22:24:10 jon Exp $
+# $Id: Data.pm,v 2.11 2002/07/08 15:32:06 mheins Exp $
#=20
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -967,7 +967,7 @@
eval {=20
if($MVSAFE::Safe) {
if (exists $Vend::Interpolate::Db{$class_config->{Class}})=
{
- $db =3D $Vend::Interpolate::Db{$class_config->{Class}}->open_table=
( $obj, $obj->{db_file} );
+ $db =3D $Vend::Interpolate::Db{$table_name}->open_table( $obj, $ob=
j->{db_file} );
} else {
die errmsg("no access for database %s", $table_name);
}