From: ivan <ivan>
Date: Fri, 3 Aug 2001 21:21:18 +0000 (+0000)
Subject: fix
X-Git-Tag: DBIX_DBSCHEMA_0_18~2
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=616b2e443d632923f10f96b89021ee14a4eb88dd;p=DBIx-DBSchema.git

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
--- 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