bugs

[DBIx-DBSchema.git] / DBSchema.pm

diff --git a/DBSchema.pm b/DBSchema.pm
index 94edd0a..36775e0 100644 (file)
--- a/DBSchema.pm
+++ b/DBSchema.pm
@@ -231,7 +231,7 @@ sub pretty_print {
                          "    '$_', ".
                          "'". $self->table($table)->column($_)->type. "', ".
                          "'". $self->table($table)->column($_)->null. "', ". 
-                         "'". $self->table($table)->column($_)->length. "'\n"
+                         "'". $self->table($table)->column($_)->length. "',\n"
                        } $self->table($table)->columns
           ).
         "  ],\n".
@@ -260,7 +260,7 @@ B<pretty_print> method.
 
 sub pretty_read {
   my($proto, $href) = @_;
-  my $schema = proto->new( map {  
+  my $schema = $proto->new( map {  
     my(@columns);
     while ( @{$href->{$_}{'columns'}} ) {
       push @columns, DBIx::DBSchema::Column->new(