=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Phrase.pm-108- my $data_table = $fts->{'data_table'}; libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Phrase.pm:109: $dbh->do("delete from $data_table where doc_id = ?", {}, $id); libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Phrase.pm-110- ############################################## libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Blob.pm-203- "select substring(idx, ?, 2) from $data_table libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Blob.pm:204: where word = ?", {}, ($med * $packlength) + 1, $word); libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Blob.pm-205- ($val) = unpack $packstring, $val; ############################################## libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/String.pm-39- ? $self->{'name_to_id_sth'} libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/String.pm:40: : $self->{'name_to_id_sth'} = $dbh->prepare("select id from $doc_id_table where name = ?") or die $dbh->errstr); libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/String.pm-41- my $id = $dbh->selectrow_array($name_to_id_sth, {}, $string); ############################################## libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Table.pm-105- $testcol->execute or libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Table.pm:106: return "Column `$column' doesn't exist in table `$table'."; libdbix-fulltextsearch-perl-0.73/lib/DBIx/FullTextSearch/Table.pm-107- $testcol->finish; ############################################## libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file-368--e 'print "Manifying $$m{$$_}\n";' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file:369:-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file-370--e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}' ############################################## libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file-479- -e "@all = keys %{ maniread() };" \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file:480: -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file:481: -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");' libdbix-fulltextsearch-perl-0.73/test_data/Makefile.old.file-482- ############################################## libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file-406--e 'print "Manifying $$m{$$_}\n";' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file:407:-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file-408--e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}' ############################################## libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file-561- -e "@all = keys %{ maniread() };" \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file:562: -e 'print("Executing $(CI) @all\n"); system("$(CI) @all");' \ libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file:563: -e 'print("Executing $(RCS_LABEL) ...\n"); system("$(RCS_LABEL) @all");' libdbix-fulltextsearch-perl-0.73/test_data/Makefile.file-564- ############################################## libdbix-fulltextsearch-perl-0.73/test_data/MyConText.modul-143- ($val) = $dbh->selectrow_array( libdbix-fulltextsearch-perl-0.73/test_data/MyConText.modul:144: "select substring(idx,(?*4)+1,2) from ${TABLE}_data where word = ?", {}, $med, $word); libdbix-fulltextsearch-perl-0.73/test_data/MyConText.modul-145- if (not defined $val) { return; }