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=f04a73729c219a79c2161aad924455c2276ddffd;hpb=782b5a43519d2713171767f74a544fe9892542ea;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/DBI/MySQL.pm b/lib/SQL/Translator/Parser/DBI/MySQL.pm index f04a737..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$ -# ------------------------------------------------------------------- # 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';