X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FADO%2FMS_Jet%2FCursor.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FADO%2FMS_Jet%2FCursor.pm;h=89ab579f4ace982786f67fd512a0375768a5d20b;hp=8b1a782904929dd5280ae3a4e5657d8ee441e6ed;hb=f4dc39d649672ff4452cf827ca204a1e937bc8b7;hpb=a4e4185f3c1e0af23dc3d916f706d0e92f95de45 diff --git a/lib/DBIx/Class/Storage/DBI/ADO/MS_Jet/Cursor.pm b/lib/DBIx/Class/Storage/DBI/ADO/MS_Jet/Cursor.pm index 8b1a782..89ab579 100644 --- a/lib/DBIx/Class/Storage/DBI/ADO/MS_Jet/Cursor.pm +++ b/lib/DBIx/Class/Storage/DBI/ADO/MS_Jet/Cursor.pm @@ -4,7 +4,9 @@ use strict; use warnings; use base 'DBIx::Class::Storage::DBI::Cursor'; use mro 'c3'; + use DBIx::Class::Storage::DBI::ADO::CursorUtils '_normalize_guids'; +use DBIx::Class::ResultSource::FromSpec::Util 'fromspec_columns_info'; use namespace::clean; =head1 NAME @@ -41,7 +43,7 @@ sub next { _normalize_guids( $self->args->[1], - $self->{_colinfos} ||= $self->storage->_resolve_column_info($self->args->[0]), + $self->{_colinfos} ||= fromspec_columns_info($self->args->[0]), \@row, $self->storage ); @@ -56,7 +58,7 @@ sub all { _normalize_guids( $self->args->[1], - $self->{_colinfos} ||= $self->storage->_resolve_column_info($self->args->[0]), + $self->{_colinfos} ||= fromspec_columns_info($self->args->[0]), $_, $self->storage ) for @rows;