projects
/
DBIx-DBSchema.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3a8ce3a
)
bugs
author
ivan
<ivan>
Wed, 27 Sep 2000 15:24:37 +0000
(15:24 +0000)
committer
ivan
<ivan>
Wed, 27 Sep 2000 15:24:37 +0000
(15:24 +0000)
DBSchema.pm
patch
|
blob
|
history
DBSchema/Table.pm
patch
|
blob
|
history
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($_)->type. "', ".
"'". $self->table($table)->column($_)->null. "', ".
- "'". $self->table($table)->column($_)->length. "'\n"
+ "'". $self->table($table)->column($_)->length. "'
,
\n"
} $self->table($table)->columns
).
" ],\n".
} $self->table($table)->columns
).
" ],\n".
@@
-260,7
+260,7
@@
B<pretty_print> method.
sub pretty_read {
my($proto, $href) = @_;
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(
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
(file)
--- a/
DBSchema/Table.pm
+++ b/
DBSchema/Table.pm
@@
-284,11
+284,10
@@
supported in the future.
sub sql_create_table {
my($self,$datasrc)=@_;
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;
my(@columns)=map { $self->column($_)->line($datasrc) } $self->columns;
push @columns, "PRIMARY KEY (". $self->primary_key. ")"
if $self->primary_key;
- if ( $datasrc =~ /^db
d
:mysql:/i ) { #yucky mysql hack
+ if ( $datasrc =~ /^db
i
:mysql:/i ) { #yucky mysql hack
push @columns, map "UNIQUE ($_)", $self->unique->sql_list;
push @columns, map "INDEX ($_)", $self->index->sql_list;
}
push @columns, map "UNIQUE ($_)", $self->unique->sql_list;
push @columns, map "INDEX ($_)", $self->index->sql_list;
}