minor changes

diff --git a/lib/DBIx/Class/Storage/DBI/ADO.pm b/lib/DBIx/Class/Storage/DBI/ADO.pm
index 8a0fa68..e457b96 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/ADO.pm
+++ b/lib/DBIx/Class/Storage/DBI/ADO.pm
@@ -26,7 +26,8 @@ sub _rebless {
   }
 }
 
-# set cursor type here, if necessary
+# Here I was just experimenting with ADO cursor types, left in as a comment in
+# case you want to as well. See the DBD::ADO docs.
 #sub _dbh_sth {
 #  my ($self, $dbh, $sql) = @_;
 #

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 5f2330a..85898fa 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
+++ b/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
@@ -42,6 +42,7 @@ sub bind_attribute_by_data_type {
 }
 
 # approximate
+# XXX needs to support varchar(max) and varbinary(max)
 sub _mssql_max_data_type_representation_size_in_bytes {
   my $self = shift;
 
@@ -65,6 +66,7 @@ sub _mssql_max_data_type_representation_size_in_bytes {
     money => 100,
     float => 100,
     real => 100,
+    uniqueidentifier => 100,
     ntext => $blob_max,
     text => $blob_max,
     image => $blob_max,