From: Ken Youens-Clark <kclark@cpan.org>
Date: Tue, 3 Jun 2003 22:37:42 +0000 (+0000)
Subject: Fixed bug with initialization.
X-Git-Tag: v0.02~104
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c941e9bf95a96a7fb9d4ae528deee4dadc86503f;p=dbsrgits%2FSQL-Translator.git

Fixed bug with initialization.
---

diff --git a/lib/SQL/Translator/Schema/Field.pm b/lib/SQL/Translator/Schema/Field.pm
index 3e74ac8..906528b 100644
--- a/lib/SQL/Translator/Schema/Field.pm
+++ b/lib/SQL/Translator/Schema/Field.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Schema::Field;
 
 # ----------------------------------------------------------------------
-# $Id: Field.pm,v 1.4 2003-05-09 17:08:14 kycl4rk Exp $
+# $Id: Field.pm,v 1.5 2003-06-03 22:37:42 kycl4rk Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -74,8 +74,9 @@ Object constructor.
         ] 
     ) {
         next unless defined $config->{ $arg };
-        $self->$arg( $config->{ $arg } ) or return;
+        defined $self->$arg( $config->{ $arg } ) or return;
     }
+
     return $self;
 }