X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FADO%2FMicrosoft_SQL_Server.pm;h=33a3e1306584d00c84d631ec43f47839fb4cf975;hb=616ca57f8cd27f475da275bbef986fdd42d4069f;hp=ac42a1eebad8b5f8f7e1484da8aad60b1fb756d9;hpb=1e8d85b39753dff2cd42b1f7b6342e145105feca;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm index ac42a1e..33a3e13 100644 --- a/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm +++ b/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm @@ -8,8 +8,10 @@ use base qw/ DBIx::Class::Storage::DBI::MSSQL /; use mro 'c3'; + use DBIx::Class::Carp; use DBIx::Class::Storage::DBI::ADO::CursorUtils qw/_normalize_guids _strip_trailing_binary_nulls/; +use DBIx::Class::ResultSource::FromSpec::Util 'fromspec_columns_info'; use namespace::clean; __PACKAGE__->cursor_class( @@ -140,7 +142,7 @@ sub select_single { 'DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server::Cursor' ); - my $col_infos = $self->_resolve_column_info($ident); + my $col_infos = fromspec_columns_info($ident); _normalize_guids($select, $col_infos, \@row, $self);