[interchange] * Back out previous change, exists for array is deprecated in

Mike Heins interchange-cvs at icdevgroup.org
Mon Jun 17 19:16:59 UTC 2013


commit 2b063379db2a7c0e876c62143933ea3d7f221354
Author: Mike Heins <mike at perusion.com>
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 '';
 		}
 	}



More information about the interchange-cvs mailing list