=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbd-mysql-perl-4.050/t/41int_min_max.t-37- ok($dbh->do(qq{ libdbd-mysql-perl-4.050/t/41int_min_max.t:38: CREATE TABLE `$table` ( libdbd-mysql-perl-4.050/t/41int_min_max.t-39- `id` int not null auto_increment, ############################################## libdbd-mysql-perl-4.050/t/41int_min_max.t-47- ok($store = $dbh->prepare("INSERT INTO $table (val) VALUES (?)")); libdbd-mysql-perl-4.050/t/41int_min_max.t:48: ok($retrieve = $dbh->prepare("SELECT val from $table where id=(SELECT MAX(id) FROM $table)")); libdbd-mysql-perl-4.050/t/41int_min_max.t-49- ############################################## libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-32- my $create = libdbd-mysql-perl-4.050/t/rt25389-bin-case.t:33:"CREATE TEMPORARY TABLE `$table` (name VARCHAR(8) CHARACTER SET $charset COLLATE ${charset}_bin $unique)"; libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-34- ############################################## libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-36- for (@test) { libdbd-mysql-perl-4.050/t/rt25389-bin-case.t:37: $dbh->do("insert into `$table` values ('$_')"); libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-38- } libdbd-mysql-perl-4.050/t/rt25389-bin-case.t:39: my $q1 = "select name from `$table`"; libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-40- $sth = $dbh->prepare($q1); ############################################## libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-48- libdbd-mysql-perl-4.050/t/rt25389-bin-case.t:49: my $q2 = "select name from `$table` where " libdbd-mysql-perl-4.050/t/rt25389-bin-case.t-50- . join( " OR ", map { "name = '$_'" } @test ); ############################################## libdbd-mysql-perl-4.050/t/50chopblanks.t-58- ok $sth->execute($id, ($value) x $numfields), "insert into dbd_mysql_t50chopblanks values ($id ".(", '$value'" x $numfields).")"; libdbd-mysql-perl-4.050/t/50chopblanks.t:59: ok $sth2->execute($id), "select $fieldlist from dbd_mysql_t50chopblanks where id = $id"; libdbd-mysql-perl-4.050/t/50chopblanks.t-60- ############################################## libdbd-mysql-perl-4.050/Makefile.PL-75- if $^O eq 'MSWin32'; libdbd-mysql-perl-4.050/Makefile.PL:76: if (! defined `$opt->{'mysql_config'}`) libdbd-mysql-perl-4.050/Makefile.PL-77- {