[interchange] * Fix bug in my last commit. Add some things to allow syntax

[Mike Heins]

commit c897a8d141eede3d09f75e90daba2e963c8dac45
Author: Mike Heins <mike at perusion.com>
Date:   Tue May 24 09:50:21 2016 -0400

    * Fix bug in my last commit. Add some things to allow syntax
      checks of this module.

 lib/Vend/Table/DBI.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Table/DBI.pm b/lib/Vend/Table/DBI.pm
index 518f9ff..3504c13 100644
--- a/lib/Vend/Table/DBI.pm
+++ b/lib/Vend/Table/DBI.pm
@@ -1908,7 +1908,7 @@ sub set_field {
 
 	my $extra = '';
 	if( my $f = $s->[$CONFIG]{TIMESTAMP_FIELD} and exists $s->[$CONFIG]{NO_UPDATE}{$column} ) {
-		$f = $db->quote_identifier($f) if $config->{QUOTE_IDENTIFIERS};
+		$f = $s->[$DBI]->quote_identifier($f) if $s->[$CONFIG]->{QUOTE_IDENTIFIERS};
 		$extra = "$f = $f, ";
 	}
 
@@ -2072,6 +2072,7 @@ sub list_fields {
 			}
 		};
 	}
+	no strict 'subs';
 	my @num = map { exists $config->{NUMERIC}{$_} ? DBI::SQL_NUMERIC : undef } @fld;
 	$config->{_Numeric_ary} = \@num;
 	if($config->{UPPERCASE}) {
@@ -2367,6 +2368,7 @@ eval {
 
     my $search;
 	$opt->{bd} = $tabs[0];
+	require Vend::DbSearch;
 	$search = new Vend::DbSearch;
 
 	my %fh;