=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtie-dbi-perl-1.08/lib/Tie/DBI.pm-173- else { libtie-dbi-perl-1.08/lib/Tie/DBI.pm:174: $query = "SELECT $s->{key} FROM $s->{table} WHERE " . join( ' OR ', ("$s->{key}=?") x $count ); libtie-dbi-perl-1.08/lib/Tie/DBI.pm-175- } ############################################## libtie-dbi-perl-1.08/lib/Tie/DBI.pm-242- $key = $s->_quote( $s->{key}, $key ) unless $s->{CanBindSelect}; libtie-dbi-perl-1.08/lib/Tie/DBI.pm:243: my $st = $s->_run_query( 'fetch1', "SELECT $s->{key} FROM $s->{table} WHERE $s->{key} = ?", $key ); libtie-dbi-perl-1.08/lib/Tie/DBI.pm-244- croak $DBI::errstr unless $st; ############################################## libtie-dbi-perl-1.08/lib/Tie/DBI.pm-266- $key = $s->_quote( $s->{key}, $key ) unless $s->{CanBindSelect}; libtie-dbi-perl-1.08/lib/Tie/DBI.pm:267: my $st = $s->_run_query( 'delete', "delete from $s->{table} where $s->{key} = ?", $key ) libtie-dbi-perl-1.08/lib/Tie/DBI.pm-268- || croak "DELETE: delete statement failed, ", $s->errstr; ############################################## libtie-dbi-perl-1.08/lib/Tie/DBI.pm-446- if ( $self->{'driver'} eq 'Oracle' ) { libtie-dbi-perl-1.08/lib/Tie/DBI.pm:447: $sth = $self->{'dbh'}->prepare( "SELECT column_name,data_type FROM ALL_TAB_COLUMNS WHERE TABLE_NAME = " . $self->{'dbh'}->quote("$self->{table}") ); libtie-dbi-perl-1.08/lib/Tie/DBI.pm-448- $sth->execute() ############################################## libtie-dbi-perl-1.08/lib/Tie/DBI.pm-475- my $f = join( ',', @valid_fields ); libtie-dbi-perl-1.08/lib/Tie/DBI.pm:476: my $st = $s->_run_query( "fetch$f", "SELECT $f FROM $s->{table} WHERE $s->{key}=?", $key ) libtie-dbi-perl-1.08/lib/Tie/DBI.pm-477- || croak "_fetch_field: ", $s->errstr; ############################################## libtie-dbi-perl-1.08/lib/Tie/DBI.pm-512- "update@$fields", libtie-dbi-perl-1.08/lib/Tie/DBI.pm:513: "update $s->{table} set @set where $s->{key}=?", @values, $key libtie-dbi-perl-1.08/lib/Tie/DBI.pm-514- );