add auto_nextval => 1 to uniqueidentifier columns on MSSQL and to uniqueidentifier...

[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / DBI / SQLAnywhere.pm

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm b/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
index 46e15fe..6fc5769 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
@@ -102,6 +102,9 @@ EOF
         elsif ($info->{data_type} eq 'float') {
             $info->{data_type} = 'real';
         }
+        elsif ($info->{data_type} =~ /^uniqueidentifier(?:str)?\z/) {
+            $info->{auto_nextval} = 1;
+        }
 
         delete $info->{default_value} if ref($info->{default_value}) eq 'SCALAR' && ${ $info->{default_value} } eq 'NULL';