--- a/Lib/IMPL/SQL/Schema/Traits.pm	Mon Jan 28 02:43:14 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Traits.pm	Mon Jan 28 17:24:37 2013 +0400
@@ -473,23 +473,18 @@
     return 0 if grep not($_), @columns;
     
     if (is($constraint,FK)) {
-        warn "FK";
         my $foreignTable = $schema->GetTable($constraint->{foreignTable})
             or return 0;
 
-        warn "Table OK";
         my @foreignColumns = map $foreignTable->GetColumn($_), @{$constraint->{foreignColumns}||[]};
         
         # внешняя таблица имеет нужные столбцы
         return 0
             if grep not($_), @foreignColumns;
-            
-        warn "FK Columns OK";
-            
+
+        # типы столбцов во внешней таблице совпадают с типами столбцов ограничения
         return 0
             if grep not($columns[$_]->type->SameValue($foreignColumns[$_]->type)), (0 .. $#columns);
-            
-        warn "FK Columns types OK";
     }
     
     return 1;