+ #change type
+ if ( ( $canonical{uc($old_column->type)} || uc($old_column->type) )
+ ne ( $canonical{uc($new_column->type)} || uc($new_column->type) )
+ || $old_column->length ne $new_column->length
+ )
+ {
+
+ warn $warning if $warning;
+ if ( $pg_server_version >= 80000 ) {
+
+ $hashref->{'sql_alter_type'} =
+ "ALTER TABLE $table ALTER COLUMN ". $new_column->name.
+ " TYPE ". $new_column->type.
+ ( ( defined($new_column->length) && $new_column->length )
+ ? '('.$new_column->length.')'
+ : ''
+ )
+
+ } else {
+ warn "WARNING: can't yet change column types for Pg < version 8\n";
+ }
+
+ }
+