From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 9 Jun 2003 02:10:10 +0000 (+0000)
Subject: Small change to comment.
X-Git-Tag: v0.02~55
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b891fb4984c638b3b69d8c5cdd32ca93ee8f9ac6;p=dbsrgits%2FSQL-Translator.git

Small change to comment.
---

diff --git a/lib/SQL/Translator/Schema/Table.pm b/lib/SQL/Translator/Schema/Table.pm
index a263cee..ae7f34e 100644
--- a/lib/SQL/Translator/Schema/Table.pm
+++ b/lib/SQL/Translator/Schema/Table.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Schema::Table;
 
 # ----------------------------------------------------------------------
-# $Id: Table.pm,v 1.7 2003-06-06 22:36:09 kycl4rk Exp $
+# $Id: Table.pm,v 1.8 2003-06-09 02:10:10 kycl4rk Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
 #
@@ -264,7 +264,11 @@ all the comments joined on newlines.
 =cut
 
     my $self = shift;
-    push @{ $self->{'comments'} }, @_ if @_;
+
+    for my $arg ( @_ ) {
+        $arg = $arg->[0] if ref $arg;
+        push @{ $self->{'comments'} }, $arg;
+    }
 
     return wantarray 
         ? @{ $self->{'comments'} || [] }