From: Ken Youens-Clark <kclark@cpan.org>
Date: Wed, 15 Jun 2005 18:00:31 +0000 (+0000)
Subject: Field comments weren't printing.
X-Git-Tag: v0.11008~536
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62bff80557556f36704816a1eaebb23708033ae3;p=dbsrgits%2FSQL-Translator.git

Field comments weren't printing.
---

diff --git a/lib/SQL/Translator/Producer/YAML.pm b/lib/SQL/Translator/Producer/YAML.pm
index d827178..25fa66f 100644
--- a/lib/SQL/Translator/Producer/YAML.pm
+++ b/lib/SQL/Translator/Producer/YAML.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::YAML;
 
 # -------------------------------------------------------------------
-# $Id: YAML.pm,v 1.11 2005-06-13 16:02:15 kycl4rk Exp $
+# $Id: YAML.pm,v 1.12 2005-06-15 18:00:31 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -41,7 +41,7 @@ takes a long time.
 
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/;
 
 use YAML qw(Dump);
 
@@ -138,6 +138,7 @@ sub view_field {
         'is_nullable'    => scalar $field->is_nullable,
         'is_primary_key' => scalar $field->is_primary_key,
         'is_unique'      => scalar $field->is_unique,
+        'comments'       => $field->comments || '',
         'extra'          => { $field->extra },
     };
 }