X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FInformix.pm;h=6ca0a2f40af826fcde77471f000114c08fd179c1;hb=c52f11c91a8570f84daf2bfbbf60fa1ef3b32b5b;hp=01be8d8aacfe12836346ae217b052ac4a47b3c3a;hpb=a6900c9127d90a9bec26228a16f68a11cc13fb1d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm b/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm index 01be8d8..6ca0a2f 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm @@ -10,7 +10,7 @@ use Try::Tiny; use namespace::clean; use DBIx::Class::Schema::Loader::Table::Informix (); -our $VERSION = '0.07039'; +our $VERSION = '0.07042'; =head1 NAME @@ -277,8 +277,7 @@ sub _table_uniq_info { my $constraints = $self->_constraints_for($table, 'U'); - my @uniqs = map { [ $_ => $constraints->{$_} ] } keys %$constraints; - return \@uniqs; + return [ map { [ $_ => $constraints->{$_} ] } sort keys %$constraints ]; } sub _table_fk_info {