=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbd-mariadb-perl-1.21/Makefile.PL-676- return undef unless $opt->{'mysql_config'} and $opt->{'mysql_config'} ne 'skip'; libdbd-mariadb-perl-1.21/Makefile.PL:677: my $output = `$opt->{'mysql_config'} --$param 2>&1`; libdbd-mariadb-perl-1.21/Makefile.PL-678- if ($? == 0 and defined $output and $output !~ /Options:|Usage:|unrecognized option/) { ############################################## libdbd-mariadb-perl-1.21/t/magic.t-27- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:28: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-29- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/magic.t-39- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:40: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-41- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/magic.t-51- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:52: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-53- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/magic.t-66- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:67: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-68- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/magic.t-83- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:84: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-85- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/magic.t-99- tie my $param, 'TieScalarCounter', $param_str; libdbd-mariadb-perl-1.21/t/magic.t:100: my $statement_str = "SELECT * FROM t WHERE i = " . $dbh->quote($param_str) . " OR i = ?"; libdbd-mariadb-perl-1.21/t/magic.t-101- tie my $statement, 'TieScalarCounter', $statement_str; ############################################## libdbd-mariadb-perl-1.21/t/90utf8_params.t-132- libdbd-mariadb-perl-1.21/t/90utf8_params.t:133: (my $out) = $dbh->selectrow_array("SELECT payload FROM unicode_test WHERE id = $id1"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-134- is($out, "\N{U+C3}\N{U+BF}", "unicode / $trials[$i] / utf8::downgrade / $charset / $enable_str"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-135- libdbd-mariadb-perl-1.21/t/90utf8_params.t:136: ($out) = $dbh->selectrow_array("SELECT payload FROM unicode_test WHERE id = $id2"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-137- is($out, "\N{U+C3}\N{U+BF}", "unicode / $trials[$i] / utf8::upgrade / $charset / $enable_str"); ############################################## libdbd-mariadb-perl-1.21/t/90utf8_params.t-206- libdbd-mariadb-perl-1.21/t/90utf8_params.t:207: (my $out) = $dbh->selectrow_array("SELECT payload FROM blob_test WHERE id = $id1"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-208- is($out, chr(0xc3).chr(0xbf), "blob / $trials[$i] / utf8::downgrade / $charset / $enable_str"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-209- libdbd-mariadb-perl-1.21/t/90utf8_params.t:210: ($out) = $dbh->selectrow_array("SELECT payload FROM blob_test WHERE id = $id2"); libdbd-mariadb-perl-1.21/t/90utf8_params.t-211- is($out, chr(0xc3).chr(0xbf), "blob / $trials[$i] / utf8::upgrade / $charset / $enable_str"); ############################################## libdbd-mariadb-perl-1.21/t/50chopblanks.t-53- ok $sth->execute($id, ($value) x $numfields), "insert into dbd_mysql_t50chopblanks values ($id ".(", '$value'" x $numfields).")"; libdbd-mariadb-perl-1.21/t/50chopblanks.t:54: ok $sth2->execute($id), "select $fieldlist from dbd_mysql_t50chopblanks where id = $id"; libdbd-mariadb-perl-1.21/t/50chopblanks.t-55- ############################################## libdbd-mariadb-perl-1.21/t/41int_min_max.t-29- ok($dbh->do(qq{ libdbd-mariadb-perl-1.21/t/41int_min_max.t:30: CREATE TEMPORARY TABLE `$table` ( libdbd-mariadb-perl-1.21/t/41int_min_max.t-31- `id` int not null auto_increment, ############################################## libdbd-mariadb-perl-1.21/t/41int_min_max.t-109- libdbd-mariadb-perl-1.21/t/41int_min_max.t:110: ok($dbh->do(qq{DROP TEMPORARY TABLE `$table`}), "removing $table"); libdbd-mariadb-perl-1.21/t/41int_min_max.t-111-} ############################################## libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-29- my $create = libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t:30:"CREATE TEMPORARY TABLE `$table` (name VARCHAR(8) CHARACTER SET $charset COLLATE ${charset}_bin $unique)"; libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-31- ############################################## libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-33- for (@test) { libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t:34: $dbh->do("insert into `$table` values ('$_')"); libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-35- } libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t:36: my $q1 = "select name from `$table`"; libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-37- $sth = $dbh->prepare($q1); ############################################## libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-44- libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t:45: my $q2 = "select name from `$table` where " libdbd-mariadb-perl-1.21/t/rt25389-bin-case.t-46- . join( " OR ", map { "name = '$_'" } @test );