get rid of use of uninitialized value errors

[DBIx-DBSchema.git] / DBSchema / Column.pm

diff --git a/DBSchema/Column.pm b/DBSchema/Column.pm
index e0d27de..75c80b2 100644 (file)
--- a/DBSchema/Column.pm
+++ b/DBSchema/Column.pm
@@ -219,11 +219,11 @@ sub line {
 
   my $null = $self->null;
 
-  my $default = $self->default;
-  if ( defined($default) && default ne ''
+  my $default;
+  if ( defined($self->default) && $self->default ne ''
        && ref($dbh)
        # false laziness: nicked from FS::Record::_quote
-       && ( $default !~ /^\-?\d+(\.\d+)?$/
+       && ( $self->default !~ /^\-?\d+(\.\d+)?$/
             || $type =~ /(char|binary|blob|text)$/i
           )
   ) {