Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
* Fix bug in my last commit. Add some things to allow syntax
  checks of this module.
  • Loading branch information
perusionmike committed May 24, 2016
1 parent d904b21 commit c897a8d
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion lib/Vend/Table/DBI.pm
Expand Up @@ -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, ";
}

Expand Down Expand Up @@ -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}) {
Expand Down Expand Up @@ -2367,6 +2368,7 @@ eval {

my $search;
$opt->{bd} = $tabs[0];
require Vend::DbSearch;
$search = new Vend::DbSearch;

my %fh;
Expand Down

0 comments on commit c897a8d

Please sign in to comment.