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