interchange-cvs at icdevgroup
Jun 17, 2013, 1:53 PM
Post #1 of 1
(66 views)
Permalink
|
|
[interchange] * Don't autovifivy @fields array entries.
|
|
commit 0afa11980f3c0e3c13a6991d6b9031afd3f96e35
Author: Mike Heins <mike [at] perusion>
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 '';
}
}
_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
|
