[interchange] * Back out previous change, exists for array is deprecated in
Mike Heins <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 2b063379db2a7c0e876c62143933ea3d7f221354 Author: Mike Heins <[email protected]> Date: Mon Jun 17 15:16:05 2013 -0400 * Back out previous change, exists for array is deprecated in Perl and we should not add new change based on that. lib/Vend/Table/DBI.pm | 3 --- 1 files changed, 0 insertions(+), 3 deletions(-) --- diff --git a/lib/Vend/Table/DBI.pm b/lib/Vend/Table/DBI.pm index 5866407..10ce8e9 100644 --- a/lib/Vend/Table/DBI.pm +++ b/lib/Vend/Table/DBI.pm @@ -1416,9 +1416,6 @@ sub set_row { if ($cfg->{PREFER_NULL}) { for (keys %{$cfg->{PREFER_NULL}}) { my $i = $cfg->{COLUMN_INDEX}{$_}; - - ## We should not autovivify @fields. - next unless exists $fields[$i]; undef $fields[$i] if $fields[$i] eq ''; } }