X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FMSSQL.pm;h=214177c6fa881f8a36256bd926ca2c0fb43820ab;hb=ecf22f0ae0e0f639c0fc8dad9529a66b9374bfbd;hp=ee22df136d9aba37b785feaee0d119d8d9662ebf;hpb=e52d195f8f7e0939fa325cf31e59804e00a30511;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm b/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm index ee22df1..214177c 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm @@ -5,12 +5,12 @@ use warnings; use base 'DBIx::Class::Schema::Loader::DBI::Sybase::Common'; use mro 'c3'; use Try::Tiny; -use List::MoreUtils 'any'; +use List::Util 'any'; use namespace::clean; use DBIx::Class::Schema::Loader::Table::Sybase (); -our $VERSION = '0.07034_01'; +our $VERSION = '0.07042'; =head1 NAME @@ -366,7 +366,7 @@ EOF push @{ $uniq{$constr} }, $self->_lc($col); } - return [ map [ $_ => $uniq{$_} ], keys %uniq ]; + return [ map [ $_ => $uniq{$_} ], sort keys %uniq ]; } sub _columns_info_for {