Small change to comment.

diff --git a/lib/SQL/Translator/Schema/Table.pm b/lib/SQL/Translator/Schema/Table.pm
index a263cee..ae7f34e 100644 (file)
--- 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'} || [] }