[interchange-cvs] interchange - heins modified lib/Vend/Data.pm

[interchange-core@interchange.redhat.com]

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);
                 }