From 616b2e443d632923f10f96b89021ee14a4eb88dd Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 3 Aug 2001 21:21:18 +0000 Subject: [PATCH] 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. --- DBSchema/Column.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.20.1