Make &Vend::Table::DBI::delete_record quote internally, not DBI directly

Before, this was wrongly passing to DBI's quote method a field name as its second parameter instead of a DBI constant such as SQL_NUMERIC or SQL_VARCHAR. This bogus second parameter is silently ignored by some DBDs, but DBD::Pg fairly recently started rejecting invalid types here: http://www.nntp.perl.org/group/perl.dbd.pg.changes/2015/02/msg1379.html Instead, let Interchange's &Vend::Table::DBI::quote do its work like it does most everywhere else.
interchange · Apr 29, 2016 · 712851f · 712851f
1 parent f96adeb
commit 712851f
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/Vend/Table/DBI.pm b/lib/Vend/Table/DBI.pm
@@ -1901,8 +1901,7 @@ sub delete_record {
 		return undef;
 	}
 
-	## Rely on DBI to quote
-	$key = $s->[$DBI]->quote($key, $s->[$KEY]);
+	$key = $s->quote($key, $s->[$KEY]);
 
     $s->[$DBI]->do("delete from $s->[$QTABLE] where $s->[$QKEY] = $key");
 }