X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FODBC%2FSQL_Anywhere.pm;h=fd56c0dfbbe589a99319d067763e546bb29ff201;hb=802a117545a5bd1a5d20152835a3aa7fb2e7b39f;hp=32bfb3a9a8de42a7af0c41bc8ba8603b0f5e1e76;hpb=c4a69b87bd3d3fdda08f05d363311a6e9d3fc0f7;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm index 32bfb3a..fd56c0d 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm @@ -8,7 +8,7 @@ use base qw/ /; use mro 'c3'; -our $VERSION = '0.07010'; +our $VERSION = '0.07041'; =head1 NAME @@ -21,6 +21,23 @@ Proxy for L when using L 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, @@ -39,3 +56,4 @@ the same terms as Perl itself. =cut 1; +# vim:et sw=4 sts=4 tw=0: