Fixes for dropping nullability on old Pg (<= 7.2)

diff --git a/DBSchema/Column.pm b/DBSchema/Column.pm
index 14351ec..f981ede 100644 (file)
--- a/DBSchema/Column.pm
+++ b/DBSchema/Column.pm
@@ -456,7 +456,16 @@ sub sql_alter_column {
   # this one could be more complicated, need to set a DEFAULT value and update
   # the table first...
   if ( $self->null && ! $new->null ) {
-    push @r, "ALTER TABLE $table ALTER COLUMN $name SET NOT NULL";
+
+    if ( $driver eq 'Pg' && $dbh->{'pg_server_version'} < 70300 ) {
+      push @r, "UPDATE pg_attribute SET attnotnull = TRUE
+                 WHERE attname = '$name'
+                   AND attrelid = ( SELECT oid FROM pg_class
+                                      WHERE relname = '$table'
+                                  )";
+    } else {
+      push @r, "ALTER TABLE $table ALTER COLUMN $name SET NOT NULL";
+    }
   }
 
   # change other stuff...