[interchange] * Don't autovifivy @fields array entries.

Mike Heins interchange-cvs at icdevgroup.org
Mon Jun 17 20:53:27 UTC 2013


commit 0afa11980f3c0e3c13a6991d6b9031afd3f96e35
Author: Mike Heins <mike at perusion.com>
Date:   Mon Jun 17 16:51:35 2013 -0400

    * Don't autovifivy @fields array entries.

 lib/Vend/Table/DBI.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Table/DBI.pm b/lib/Vend/Table/DBI.pm
index 10ce8e9..f0c4ef6 100644
--- a/lib/Vend/Table/DBI.pm
+++ b/lib/Vend/Table/DBI.pm
@@ -1416,6 +1416,8 @@ sub set_row {
 	if ($cfg->{PREFER_NULL}) {
 		for (keys %{$cfg->{PREFER_NULL}}) {
 			my $i = $cfg->{COLUMN_INDEX}{$_};
+			## Don't autovivify
+			next if $i > $#fields;
 			undef $fields[$i] if $fields[$i] eq '';
 		}
 	}



More information about the interchange-cvs mailing list