X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI%2FMySQL.pm;h=d1f88680b46d3c3d35c508b213ae5afd8ed4fb64;hb=ba506e52c480afe33dfec6b38a12759fad1e7fa2;hp=43c3be814a88cb113f76bd5e209aa59a05c38b86;hpb=da06ac74ada30aacf656943306679a28605ad5c8;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/DBI/MySQL.pm b/lib/SQL/Translator/Parser/DBI/MySQL.pm index 43c3be8..d1f8868 100644 --- a/lib/SQL/Translator/Parser/DBI/MySQL.pm +++ b/lib/SQL/Translator/Parser/DBI/MySQL.pm @@ -1,8 +1,6 @@ package SQL::Translator::Parser::DBI::MySQL; # ------------------------------------------------------------------- -# $Id: MySQL.pm 1440 2009-01-17 16:31:57Z jawnsy $ -# ------------------------------------------------------------------- # Copyright (C) 2002-2009 SQLFairy Authors # # This program is free software; you can redistribute it and/or @@ -43,7 +41,7 @@ use SQL::Translator::Schema::Constants; use SQL::Translator::Parser::MySQL; use vars qw[ $DEBUG $VERSION @EXPORT_OK ]; -$VERSION = '1.99'; +$VERSION = '1.60'; $DEBUG = 0 unless defined $DEBUG; # ------------------------------------------------------------------- @@ -51,7 +49,9 @@ sub parse { my ( $tr, $dbh ) = @_; my $schema = $tr->schema; my @table_names = @{ $dbh->selectcol_arrayref('show tables') }; - my @skip_tables = defined $tr->parser_args->{skip}?split(/,/, $tr->parser_args->{skip}):(); + my @skip_tables = defined $tr->parser_args->{skip} + ? split(/,/, $tr->parser_args->{skip}) + : (); $dbh->{'FetchHashKeyName'} = 'NAME_lc';