use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07039';
+our $VERSION = '0.07041';
=head1 NAME
return ($self->next::method(@_), 'mysql');
}
-sub _tables_list {
- my ($self, $opts) = @_;
-
- return $self->next::method($opts, undef, undef);
-}
-
sub _table_fk_info {
my ($self, $table) = @_;
my @uniqs;
my $keydata = $self->_mysql_table_get_keys($table);
- foreach my $keyname (keys %$keydata) {
+ foreach my $keyname (sort keys %$keydata) {
next if $keyname eq 'PRIMARY';
push(@uniqs, [ $keyname => $keydata->{$keyname} ]);
}