X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fsqlt;h=9c19bce286bb51c68455055491df324039a5638e;hb=aee4b66eb2152b7066ced4def46e0223eb1649b1;hp=720a926328a5dc6b13842d9893aa61d5b80086ec;hpb=bdf60588bb1e35e284bdc02c43d0ffe691994465;p=dbsrgits%2FSQL-Translator.git diff --git a/script/sqlt b/script/sqlt index 720a926..9c19bce 100755 --- a/script/sqlt +++ b/script/sqlt @@ -51,7 +51,7 @@ To translate a schema: General Parser Options: --skip Comma-separated list of tables to skip (only implemented in some parsers) - --ignore_opts Comma-separated list of table options to ignore + --ignore_opts Comma-separated list of table options to ignore DBI Parser Options: @@ -247,12 +247,12 @@ GetOptions( ) or pod2usage(2); if ($use_same_auth) { - $producer_dsn = $dsn; - $producer_db_user = $db_user; - $producer_db_password = $db_password; + $producer_dsn = $dsn; + $producer_db_user = $db_user; + $producer_db_password = $db_password; } -if ( +if ( ( !defined $from && defined $dsn ) || $from =~ /^DBI.*/ @@ -277,7 +277,7 @@ if ( $show_version ) { exit(0); } -my $translator = SQL::Translator->new( +my $translator = SQL::Translator->new( debug => $debug || 0, trace => $trace || 0, no_comments => $no_comments || 0, @@ -318,7 +318,7 @@ my $translator = SQL::Translator->new( newlines => $newlines, postgres_version => $postgres_version, mysql_version => $mysql_version, - package_name => $package_name, + package_name => $package_name, }, ); @@ -345,7 +345,7 @@ $translator->parser($from); $translator->producer($to); for my $file (@files) { - my @args = + my @args = ($file eq '-') ? (data => \*STDIN) : ($file eq '!') ? (data => '') : (file => $file);