fix

  Use of unitialized value in join at
  /usr/local/lib/perl5/site_perl/5.6.0/DBIx/DBSchema/Column.pm line 251.
at least for non-specified lengths.

diff --git a/DBSchema/Column.pm b/DBSchema/Column.pm
index ff4db92..f601014 100644 (file)
--- a/DBSchema/Column.pm
+++ b/DBSchema/Column.pm
@@ -250,7 +250,8 @@ sub line {
 
   my @r = join(' ',
     $self->name,
-    $type. ( $self->length ? '('.$self->length.')' : '' ),
+    $type.
+      ( defined($self->length) && $self->length ? '('.$self->length.')' : '' ),
     $null,
     ( ( defined($default) && $default ne '' )
       ? 'DEFAULT '. $default