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

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Wed Dec 5 10:40:01 2001


User:      heins
Date:      2001-12-05 15:36:37 GMT
Modified:  lib/Vend/Table Tag: STABLE_4_8-branch DBI.pm
Log:
	* Port change from dev version. Only effect of this is to remove surrounding
	  quotes from returned key, whereas in dev version caught die block was
	  causing no key to be returned.

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.4   +3 -3      interchange/lib/Vend/Table/DBI.pm


rev 2.0.2.4, prev_rev 2.0.2.3
Index: DBI.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.0.2.3
retrieving revision 2.0.2.4
diff -u -r2.0.2.3 -r2.0.2.4
--- DBI.pm	2001/11/02 13:26:57	2.0.2.3
+++ DBI.pm	2001/12/05 15:36:37	2.0.2.4
@@ -1,6 +1,6 @@
 # Vend::Table::DBI - Access a table stored in an DBI/DBD database
 #
-# $Id: DBI.pm,v 2.0.2.3 2001/11/02 13:26:57 mheins Exp $
+# $Id: DBI.pm,v 2.0.2.4 2001/12/05 15:36:37 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::DBI;
-$VERSION = substr(q$Revision: 2.0.2.3 $, 10);
+$VERSION = substr(q$Revision: 2.0.2.4 $, 10);
 
 use strict;
 
@@ -987,7 +987,7 @@
 
 	my $val	= $s->[$CONFIG]->{AUTO_SEQUENCE}
 			?  $s->last_sequence_value()
-			: $tkey;
+			: $key;
 
 	return $val;
 }