[interchange] * Don't autovifivy @fields array entries.
Mike Heins <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 0afa11980f3c0e3c13a6991d6b9031afd3f96e35 Author: Mike Heins <[email protected]> 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 ''; } }