=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libsql-translator-perl-1.62/lib/SQL/Translator/Producer/PostgreSQL.pm-521- elsif ( uc($key) eq 'WHERE' ) { libsql-translator-perl-1.62/lib/SQL/Translator/Producer/PostgreSQL.pm:522: $index_where = "WHERE $value"; libsql-translator-perl-1.62/lib/SQL/Translator/Producer/PostgreSQL.pm-523- } ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm-425- my $clause = $item[1]; libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm:426: my $where = $1 if $clause =~ s/\bwhere \s+ (.*)//ixs; libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm-427- $clause =~ s/[)]\s*$//; ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm-436- tables => \@tables, libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm:437: where => $where || '', libsql-translator-perl-1.62/lib/SQL/Translator/Parser/MySQL.pm-438- }; ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm-250- method => $item{'using_method(?)'}[0], libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm:251: where => $item{'where_predicate(?)'}[0], libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm-252- } ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm-1089- push @options, { using => $idata->{'method'} } if $idata->{method}; libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm:1090: push @options, { where => $idata->{'where'} } if $idata->{where}; libsql-translator-perl-1.62/lib/SQL/Translator/Parser/PostgreSQL.pm-1091- my $index = $table->add_index( ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm-187- my $q_name = $self->quote($name); libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm:188: "IF EXISTS (SELECT name FROM sysobjects WHERE name = '$name' AND type = 'U')" . libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm-189- " DROP TABLE $q_name;" ############################################## libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm-195- my $q_name = $self->quote($name); libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm:196: "IF EXISTS (SELECT name FROM sysobjects WHERE name = '$name' AND type = 'U')" . libsql-translator-perl-1.62/lib/SQL/Translator/Generator/DDL/SQLServer.pm-197- " ALTER TABLE $q_name NOCHECK CONSTRAINT all;" ############################################## libsql-translator-perl-1.62/t/38-mysql-producer.t-617- SQL::Translator::Producer::MySQL::create_field($number_field, $options), libsql-translator-perl-1.62/t/38-mysql-producer.t:618: "`numberfield_$expected` $expected($size) NULL", libsql-translator-perl-1.62/t/38-mysql-producer.t-619- "Use $expected for NUMBER types of size $size" ############################################## libsql-translator-perl-1.62/t/38-mysql-producer.t-779- my $sql = SQL::Translator::Producer::MySQL::create_field($field, $options); libsql-translator-perl-1.62/t/38-mysql-producer.t:780: is($sql, "`my$type` $type NULL", "Skip length param for type $type"); libsql-translator-perl-1.62/t/38-mysql-producer.t-781- }