From 515c21989e4cd92c7c1bc340b3a85d58514589b4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 27 Sep 2000 15:24:37 +0000
Subject: [PATCH] bugs

---
 DBSchema.pm       | 4 ++--
 DBSchema/Table.pm | 3 +--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/DBSchema.pm b/DBSchema.pm
index 94edd0a..36775e0 100644
--- 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(
diff --git a/DBSchema/Table.pm b/DBSchema/Table.pm
index 47e0b12..10c11ce 100644
--- a/DBSchema/Table.pm
+++ b/DBSchema/Table.pm
@@ -284,11 +284,10 @@ supported in the future.
 
 sub sql_create_table { 
   my($self,$datasrc)=@_;
-  warn $datasrc;
   my(@columns)=map { $self->column($_)->line($datasrc) } $self->columns;
   push @columns, "PRIMARY KEY (". $self->primary_key. ")"
     if $self->primary_key;
-  if ( $datasrc =~ /^dbd:mysql:/i ) { #yucky mysql hack
+  if ( $datasrc =~ /^dbi:mysql:/i ) { #yucky mysql hack
     push @columns, map "UNIQUE ($_)", $self->unique->sql_list;
     push @columns, map "INDEX ($_)", $self->index->sql_list;
   }
-- 
2.20.1