From: Rafael Kitover <rkitover@cpan.org>
Date: Thu, 17 Dec 2009 16:44:34 +0000 (+0000)
Subject: cleanup source_bind_attributes for ADO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=335b0f6c285aa28d828172fda52daab0fb2e72e3;p=dbsrgits%2FDBIx-Class-Historic.git

cleanup source_bind_attributes for ADO
---

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 85898fa..3014c34 100644
--- a/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
+++ b/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
@@ -15,14 +15,12 @@ sub _rebless {
 }
 
 sub source_bind_attributes {
-  my ($self, $source) = @_;
+  my $self = shift;
+  my ($source) = @_;
 
-  my $bind_attributes;
-  foreach my $column ($source->columns) {
+  my $bind_attributes = $self->next::method(@_);
 
-    my $data_type = $source->column_info($column)->{data_type} || '';
-    $bind_attributes->{$column} = $self->bind_attribute_by_data_type($data_type)
-      if $data_type;
+  foreach my $column ($source->columns) {
     $bind_attributes->{$column}{ado_size} ||= 8000; # max VARCHAR
   }