From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 7 Apr 2010 17:23:53 +0000 (+0000)
Subject: clean up UUID stringification for SQL Anywhere
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e5fec1c5e5777334c7677c6aaa1a1699e2f2c6b;p=dbsrgits%2FDBIx-Class-Historic.git

clean up UUID stringification for SQL Anywhere
---

diff --git a/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm b/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm
index bcd47eb..c845379 100644
--- a/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm
+++ b/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm
@@ -80,19 +80,14 @@ sub _select_args {
   my $self = shift;
   my ($ident, $select) = @_;
 
-  my ($alias2source, $rs_alias) = $self->_resolve_ident_sources($ident);
+  my $col_info = $self->_resolve_column_info($ident);
 
   for my $select_idx (0..$#$select) {
     my $selected = $select->[$select_idx];
 
     next if ref $selected;
 
-    my ($alias, $col) = split /\./, $selected;
-       ($alias, $col) = ($rs_alias, $selected) if not defined $col;
-
-    my $data_type = eval {
-        $alias2source->{$alias}->column_info($col)->{data_type}
-    };
+    my $data_type = $col_info->{$selected}{data_type};
 
     if ($data_type && $data_type =~ /^uniqueidentifier\z/i) {
       $select->[$select_idx] = { UUIDTOSTR => $selected };