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

[interchange-core@icdevgroup.org]

User:      jon
Date:      2002-07-15 21:09:16 GMT
Modified:  lib/Vend/Table Tag: STABLE_4_8-branch DBI.pm
Log:
Fix set_slice bug that removed all values from array after code, if
code was passed in array (separately from code parameter in sub call).
Patch by Mark Johnson.

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.7   +4 -5      interchange/lib/Vend/Table/DBI.pm


rev 2.0.2.7, prev_rev 2.0.2.6
Index: DBI.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: /var/cvs/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.0.2.6
retrieving revision 2.0.2.7
diff -u -u -r2.0.2.6 -r2.0.2.7
--- DBI.pm	17 Jun 2002 15:57:28 -0000	2.0.2.6
+++ DBI.pm	15 Jul 2002 21:09:15 -0000	2.0.2.7
@@ -1,6 +1,6 @@
 # Vend::Table::DBI - Access a table stored in an DBI/DBD database
 #
-# $Id: DBI.pm,v 2.0.2.6 2002/06/17 15:57:28 jon Exp $
+# $Id: DBI.pm,v 2.0.2.7 2002/07/15 21:09:15 jon Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
=20
 package Vend::Table::DBI;
-$VERSION =3D substr(q$Revision: 2.0.2.6 $, 10);
+$VERSION =3D substr(q$Revision: 2.0.2.7 $, 10);
=20
 use strict;
=20
@@ -966,11 +966,10 @@
 		$sql =3D "update $s->[$TABLE] SET $fstring WHERE $s->[$KEY] =3D $tkey";
 	}
 	else {
-		my $found;
 		for(my $i =3D 0; $i < @$fary; $i++) {
 			next unless $fary->[$i] eq $s->[$KEY];
-			splice @$fary, $i;
-			splice @$vary, $i;
+			splice @$fary, $i, 1;
+			splice @$vary, $i, 1;
 			last;
 		}
 		my $fstring =3D join ",", @$fary;