quote reference_table
Geistteufel [Wed, 31 Aug 2011 13:39:33 +0000 (15:39 +0200)]
lib/SQL/Translator/Producer/MySQL.pm

index bfa1da6..5ae406e 100644 (file)
@@ -738,6 +738,8 @@ sub create_constraint
     my $qt      = $options->{quote_table_names} || '';
     my $leave_name      = $options->{leave_name} || undef;
 
+    my $reference_table_name = quote_table_name($c->reference_table, $qt);
+
     my @fields = $c->fields or next;
 
     if ( $c->type eq PRIMARY_KEY ) {
@@ -767,7 +769,7 @@ sub create_constraint
 
         $def .= ' ('.$qf . join( "$qf, $qf", @fields ) . $qf . ')';
 
-        $def .= ' REFERENCES ' . $qt . $c->reference_table . $qt;
+        $def .= ' REFERENCES ' . $reference_table_name;
 
         my @rfields = map { $_ || () } $c->reference_fields;
         unless ( @rfields ) {