use strict;
use warnings;
use base qw/
+ DBIx::Class::Schema::Loader::DBI::ODBC
DBIx::Class::Schema::Loader::DBI::SQLAnywhere
/;
-use Carp::Clan qw/^DBIx::Class/;
use mro 'c3';
-our $VERSION = '0.07006';
+our $VERSION = '0.07034_01';
=head1 NAME
See L<DBIx::Class::Schema::Loader::Base> for usage information.
+=cut
+
+sub _columns_info_for {
+ my $self = shift;
+
+ my $result = $self->next::method(@_);
+
+ while (my ($col, $info) = each %$result) {
+ # The ODBC driver sets the default value to NULL even when it was not specified.
+ if (ref $info->{default_value} && ${ $info->{default_value} } eq 'null') {
+ delete $info->{default_value};
+ }
+ }
+
+ return $result;
+}
+
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader::DBI::SQLAnywhere>,
=cut
1;
+# vim:et sw=4 sts=4 tw=0: