From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 29 Sep 2009 23:54:34 +0000 (-0700)
Subject: coerce a hash into an Index
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=706009e592681ee6b225df20cfd83b620ed40b3e;p=dbsrgits%2FSQL-Translator-2.0-ish.git

coerce a hash into an Index
---

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index 918cd14..08388a5 100644
--- 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;