From: Ken Youens-Clark Date: Wed, 12 Aug 2009 15:06:14 +0000 (+0000) Subject: Just whitespace changes -- I wouldn't normally commit something like this, but X-Git-Tag: v0.11008~120 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=edc4b5da65c5e01e57a99d48cb312c50664966eb;p=dbsrgits%2FSQL-Translator.git Just whitespace changes -- I wouldn't normally commit something like this, but I got to working on this and realized I was changing the wrong thing. --- diff --git a/lib/SQL/Translator/Producer/MySQL.pm b/lib/SQL/Translator/Producer/MySQL.pm index 5a32d01..3102ec0 100644 --- a/lib/SQL/Translator/Producer/MySQL.pm +++ b/lib/SQL/Translator/Producer/MySQL.pm @@ -110,7 +110,8 @@ my $DEFAULT_MAX_ID_LENGTH = 64; use Data::Dumper; use SQL::Translator::Schema::Constants; -use SQL::Translator::Utils qw(debug header_comment truncate_id_uniquely parse_mysql_version); +use SQL::Translator::Utils qw(debug header_comment + truncate_id_uniquely parse_mysql_version); # # Use only lowercase for the keys (e.g. "long" and not "LONG") @@ -618,22 +619,23 @@ sub alter_create_index sub create_index { - my ($index, $options) = @_; + my ( $index, $options ) = @_; my $qf = $options->{quote_field_names} || ''; - return join( ' ', - lc $index->type eq 'normal' - ? 'INDEX' - : $index->type . ' INDEX' - , - $index->name - ? (truncate_id_uniquely( $index->name, $options->{max_id_length} || $DEFAULT_MAX_ID_LENGTH ) ) - : () - , - '(' . $qf . join( "$qf, $qf", $index->fields ) . $qf . ')' - ); - + return join( + ' ', + lc $index->type eq 'normal' ? 'INDEX' : $index->type . ' INDEX', + $index->name + ? ( + truncate_id_uniquely( + $index->name, + $options->{max_id_length} || $DEFAULT_MAX_ID_LENGTH + ) + ) + : '', + '(' . $qf . join( "$qf, $qf", $index->fields ) . $qf . ')' + ); } sub alter_drop_index