From: Rafael Kitover Date: Fri, 19 Feb 2010 11:25:27 +0000 (+0000) Subject: s/primary_columns/_pri_cols/ for Firebird X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f55ac9486477582fdbd4b88b8415d8f456d852b;p=dbsrgits%2FDBIx-Class-Historic.git s/primary_columns/_pri_cols/ for Firebird --- diff --git a/lib/DBIx/Class/Storage/DBI/InterBase.pm b/lib/DBIx/Class/Storage/DBI/InterBase.pm index 22cb19e..085da6e 100644 --- a/lib/DBIx/Class/Storage/DBI/InterBase.pm +++ b/lib/DBIx/Class/Storage/DBI/InterBase.pm @@ -34,7 +34,7 @@ sub _prep_for_execute { my ($op, $extra_bind, $ident, $args) = @_; if ($op eq 'insert') { - my @pk = $ident->primary_columns; + my @pk = $ident->_pri_cols; my %pk; @pk{@pk} = ();