X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FSQLServer.pm;h=8affe1ae942ca0c767881da7cb5fa5cf8e91ee12;hb=06baeb2195df54daf9e50033a2050b473271b07d;hp=11cee5fbb1e7ca640d2f183b3cdaf29e168fd409;hpb=1c8ec56e310980f823b2ea35fab59d7a139fa96a;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm index 11cee5f..8affe1a 100644 --- a/lib/SQL/Translator/Producer/SQLServer.pm +++ b/lib/SQL/Translator/Producer/SQLServer.pm @@ -253,16 +253,13 @@ sub produce { # # Default value # - my $default = $field->default_value; - if ( defined $default ) { - SQL::Translator::Producer->_apply_default_value( - \$field_def, - $default, - [ - 'NULL' => \'NULL', - ], - ); - } + SQL::Translator::Producer->_apply_default_value( + $field, + \$field_def, + [ + 'NULL' => \'NULL', + ], + ); push @field_defs, $field_def; }