projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
coerce a hash into an Index
[dbsrgits/SQL-Translator-2.0-ish.git]
/
lib
/
SQL
/
Translator
/
Object
/
Table.pm
diff --git
a/lib/SQL/Translator/Object/Table.pm
b/lib/SQL/Translator/Object/Table.pm
index
918cd14
..
08388a5
100644
(file)
--- a/
lib/SQL/Translator/Object/Table.pm
+++ b/
lib/SQL/Translator/Object/Table.pm
@@
-107,7
+107,7
@@
class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
}
$self->$orig($name, $constraint)
}
- around add_index(Index $index) {
+ around add_index(Index $index does coerce) {
my $name = $index->name;
if ($name eq '') {
my $idx = 0;